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ABSTRACT 


This  report  is  devoied  to  the  investigation  of  algorithms  which  reduce 
the  complexity  of  a  real-time  digital  processor  for  performing  tactical 
transceiver  functions  of  modulation,  demodulation,  frequency  synthesis, 
heterodyning,  and  filtering.  A  minimum  complexity  design  for  a  Multimode 
Digital  Processing  Transceiver  was  established  through  analytical  investi¬ 
gations  and  computer  simulations,  and  a  breadboard  was  developed  for 
experimental  evaluation. 


EVALUATION 


This  study  was  concerned  with  further  development  of  the 
multimode  digital  transceiver  concept  which  was  specified  in  a 
previous  study.  This  concept  allows  replacement  of  .najor  portions  of 
the  analog  circuits  in  a  transceiver  with  logic  circuitry  in  the  form 
of  a  special  purpose  digital  processor.  This  concept  vfould  allow 
acceptance  of  analog  data  such  as  voice  or  digital  data  to  be  con¬ 
verted  through  appropriate  sampling  and  quantizing  to  a  numerical 
representation  of  these  inputs  for  subsequent  modulation  in  nearly 
any  known  form  (i.e.  analog  AM,  AM-SSB,  EM,  etc.  or  digital  data 
PSK,  FSK  or  combinations,  etc.).  Subsequently  the  outputs  would 
be  processed  through  digital  translation,  digital  to  analog  conversion, 
further  analog  frequency  translation  as  necessary,  final  filtering 
and  amplification  prior  to  transmitting.  At  the  receiver  the  same 
digital  processor  reconfigured  would  perform  the  receiving  functions 
after  initial  amplification,  heterodyning  and  IF  filtering.  Con¬ 
ceptually  all  transmitter  functions  in  the  HF  and  VHF  frequency  bands 
could  be  accomplished  numerically  with  the  exception  of  final 
filtering  and  amplification.  However  this  is  not  considered  to  be 
a  cost  effective  approach  at  this  time  since  the  digital  to  analog 
converter  would  be  expensive  and  further  the  digital  processor  could 
not  be  fully  utilized  for  performing  the  receiver  functions.  In  fact 
the  contractor  demonstrated  ingenuity  in  developing  a  minimum  complexity 
digital  processor  design  which  makes  use  of  the  same  coirmon  elements  for 
transmitting  functions  such  as  modulation, frequency  synthesis,  and 
frequency  translation  as  for  receiving  functions  such  as  demodulation 
and  filtering.  Another  important  aspect  developed  was,  use  in  time 
sharing  arithmetic  functions  in  the  filter  design,  which  makes  up  a 
major  part  of  the  digital  processor,  and  as  a  result  reduces  the 
complexity  and  in  turn  the  cost  of  the  digital  processor  substantially. 

Based  on  the  design  work  developed  in  this  study  and  the  breadboard 
demonstration  of  transmitting  and  receiving  many  modulation  types  with 
a  single  digital  processor,  it  appears  that  the  next  logical  step  is 
to  develop  an  experimental  model  for  evaluation  with  many  existing 
Air  Force  HF/VHF  transceivers  in  field  use  today  as  well  as  demonstrating 
additional  digital  data  transmission  capabilities  peculiar  to  this  concepc. 
This  new  signal  processing  concept  offers  the  potential  for  an  equipment 
transition  period  making  use  of  this  equipment  as  well  as  existing  field 
equipments  simultaneously.  Since  this  single  unified  processor 
approach  offers  the  capability  of  interfacing  with  many  existing 
field  radios,  because  it  can  be  programmed  to  handle  characteristics 
of  these  existing  transceivers,  a  transition  period  for  use  of  both 
the  existing  equipment  and  the  new  development  is  possible.  This 
circumvents  the  problem  of  total  replacement  with  new  equipment 
but  still  offers  additional  operational  characteristics  not  presently 
incorporated  in  the  present  transceivers  in  use  today. 
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Frontpiece:  Multimode  Digital  Processing  Transceiver- -Breadboard  Model 


.  SECTiION  I 
•  INTRODUCTION 


This  report  is  t*he  latest  in  a  series  of  investigations  related  to  the 
use  of  a  real-time  digital  processor  to  perform  tactical  transceiver, functions 
of  modulation,  demodulation,  frequency  synthesis,  heterodyning  and  filtering. 
The  objective  of  the  present  program  was  toi  investigate  algorithms  which, 
reduce  the  complexity  of  the  processor.  A  minimum -complexity  design  for 
a  Multimode  Digital  Processing  Transfceiver  was  established  and  a  bread¬ 
board  was  developed  for  experimental  evaluation. 

i  > 

In  the  Digital  Equivalent  Transceivers  Study  (Reference  1)  the  idea  of 
using  a  numerical  processor  to  perform  transceiver  functions  was  ihtro- 
duced  and  alternative  approaches  to  performing  these  functions  Were  investi¬ 
gated.  In  the  present  effort,  these  investigations  were  continued,  design 
decisions  were  made,  and  specific  computational  algorithms  were  developed 
and  tested.  Use  was  made  of  results  from  some  of  our  previous  investiga- 
dons'1’  ’  ',  while  duplication  of  material  therein,  was  avoided.  The 

transceiver  specifications  in  Section  V.  2  of  Reference  1  wer.e  used  as  guides 
and  goals  through  the  present  work.  ’  ’  1  : 

’  ‘  ’  1  ‘i 

1 .  DIGITAL  TRANSCEIVERS  ,  i  , 

i  ,  , 

A  Digital  Processing  Transceiver  interfaces  with  the  analog  world  , 
through  analog -to -digital  (A/D)  and  digital -to -analog  (D/A)  converters  at 
voiceband  and  at  an  intermediate  frequency  (IF).  Someday,  perhaps,  the 
latter  interface  may  be  at  RF.1  Between  the  interfaces,  lall  filtering,  spectral 
shaping  modulation,  demodulation;  heterodyning  coding,  and  decoding  for 
voice  and  for  digital  data  is  performed  by  time  sharing  a  special  purpose, 
high  speed,  digital- processor.  ,  1  , 

The  signals  to  be  processed  are  quantized  in  time  and  amplitude  and 
the  processor  operates  as  a  real-time  digital  computer  on  a  sequence  of  > 
numbers.  By  switching  between  several  "hardwired"  programs  the  processor 
becomes:  either  a  receiver  or  a  transmitter;  for  either  voice  or  digital 
data;  via  amplitude,  phase,  or  frequency  modulation;  either  single-  or 
double-sideband;  either  coherent,  non -coherent,  or  differentially  coherent; 
with  or  without  partial-response  spectral  shaping,  tencryption,  scrambling,  • 
or  any  other  type  of ’signal  processing'  we  may  wish  to  program. 

2.  SUMMARY  ’  >' 

The  overall  system  design  that  evolved  from  this  work  is  presented 
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in  Sections  II.  1  through  II.  3.  ,The  basic  system  involves  filtering,  resamp¬ 
ling,  angle  modulation,  and  frequency  translation,  for  transmitter  operation; 
and  bandpass  samplihg,  frequency  or  phase  demodulation,  resampling,  and 
filtering,  for  receiver  operation.  The  interpolation  resampling  process 
(for  transmitter  operation)  is  discussed  in  detail  in  Section  II.  4.  The  1 
■discussion  builds  on,  and  extends  the  corresponding  discussion  in  Section 
III.  1  of  Reference  1.  ■  ! 

i  !  ' 

'  ‘  I 

Zero  differential  delay  (absolutely  linear  p(hase)  is  essential  to  avoid 
pulse  distortion  and  resulting  intersymbol,  interference  for  digital  data  , 
transmission  *.  While  this  ideal  is  impossible  to  attain  with  analog 
filter's,  it  is  easily  attained  with  finite  response  digital  filters.  All  known 
'methods  fotf  designing  such  filters  (including  some  that  have  not  yet  been 
published)  are  discussed  in  Section  III. 

I  1  , 

I  '  *  *  » 

The  problem  of  accurately  extracting  the  complex  modulated  low-pass 
sigiial  by  sampling  the  received1 1.  F.  signal  at  a  rate  determined  by  the 
bandpass  sampling  theorem  is  treaited:in  Section  IV.  Complex  sampling  by 
two  A/D  convertors,  operating  a  quarter  of  ia  carrier -cycle  apart  in  time, 
is  only  an  apprbximation  to  true  .complex  sampling.  A  method  for  improving 
the  approximation,  without  using  more  than  two  A/D  convertors  or  a,  higher 
sampling  rate,  is  presented  and  compared  with  the  multiple  sample  method 

pf  Reference  19.  - 

!  * 

Modulation. and  demodulation  is  disqussfed  in  Seqtion  V.  Linear 
(amplitude)  modulation  and  demodulation,  whether  double -sideband  or 
single -sideband,  is  seen  to  be  simply  a  problem  in  filtering  and  frequency 
translation.  Frequency  modulation  is  obtained  by  merely  inserting  .the 
modulator  of  figure  2'0a  before  the  frequency  translator  ,in  figure  19a.  Two 
alternative  schemes  for  frequency  (or  phase*)  demodulation  are  shown  in  . 
figured  21  and  11. 

Recursive  and  nonrecursive  filters  are  dompared  in  Section  VI  and* 
spedific  filter  designs  are  given.’  The  unit  response  of  a  half -sample 
delayed  digital  differentiator is  analytically  derived  in  Section  \  I.  3. 

1  The  entire  transceiver  system  was  simulated  in  the  SSB,  DSB,  and 
FM  mode.  Spectral  examinations  were  made  via  the  FFT  at  various  points 
in  the  system.  Noise  was  introduced  and  ^ignal-to-noise  ratios  were 
measured.  The  simulations  presented  in  Section  VII  resulted  in  some 
design  changes  that  were  incorporated  into  the  breadboard  and  into  the 
system  description  of  Section  II. 

i 

i  I 

The  entire  system,  appropriately  revised,  was  then  breadboarded  as 
•a  100:1  scaled  down  (in  frequency)  version.  TJhe^  scaling  \Vas  done  so  that 
an  off-the-shelf  general  purpose  processor  could  be  utilized.  The  bread - 

i 


i 


board  included  all  necessary  A/D  and  D/A  converters  and  performed  all 
necessary  digital  frequency  translations.  It  was  tested  in  the  DSB,  SSE, 
PM,  and  FM  modes  with  both  analog  and  digital  data.  Error  rate  measure¬ 
ments  were  made  in  FSK  operation. 


Conclusions  and  Recommendations  are  in  Section  IX. 


SECTION  II 


SYSTEM  DESCRIPTION 


This  section  presents  the  system  configuration  of  the  multimode  trans¬ 
ceiver  processor  in  its  simplest  form.  The  double  sideband,  single  side¬ 
band,  and  angle  modulation  system  are  discussed  separately  for  the  sake  of 
clarity.  In  reading  the  double  sideband  AM  discussion,  which  is  presented 
first  because  it  is  the  simplest,  the  reader  may  feel  that  the  system  is 
unduely  complicated  for  the  simple  task  being  performed.  He  must  bear  in 
mind  that  the  configuration  was  chosen  so  that  the  same  system  can  be 
utilized  for  all  forms  of  modulation. 

1.  DOUBLE  SIDEBAND  AM 


The  double  sideband  amplitude  modulated  (DSB-AM)  transceiver  con¬ 
figuration  is  given  in  figure  1.  The  filters  and  resamplers  are  convolutional 
filters  as  shown  in  figure  2.  In  practice,  a  single  shift  register  and 
correlator  would  be  time  shared  for  all  transceiver  filtering  and  resampling 
functions  through  appropriate  timing  and  control  circuitry.  For  ease  of 
exposition,  however,  we  will  treat  them  as  if  they  were  separate  filters. 

The  first  unit  in  figure  la  is  an  analog  to  digital-sampled -data  (A/D) 
converter.  The  input  is  a  baseband  analog  signal  and  the  output  is  a  sequence 
of  binary  numbers  representing  the  sampled  values  of  the  input  taken  at  the 
rate  of  r  samples  per  second.  Figure  3a  shows  a  representative  baseband 
signal  spectrum  where,  because  of  RF  spectral  crowding,  we  desire  to 
transmit  only  B  hertz  of  the  signal.  Typically,  B  will  be  in  the  order  of  3 
kilohertz.  Figure  3b  shows  the  spectrum  at  the  output  of  the  A/D  converter. 
Since  the  spectrum  repeats  at  the  sampling  rate,  *  that  rate  must  be  chosen 
greater  than  twice  the  total  signal  bandwidth  (r>2B')  in  order  to  prevent 
aliasing.  However;  aliasing  is  permissable  as  long  as  it  does  not  encroach 
on  the  desired  portion  of  the  spectrum  (figure  6b).  Thus  the  sampling  rate 
need  only  satisfy  r>B+B\ 

The  spectra  depicted  in  figure  3  assumes  a  sampling  rate  of  r^  = 
r£  =  r  =  16  kilohertz,  corresponding  to  figure  la  with  the  resampling  filter 
(the  third  unit  in  the  figure)  removed.  The  filter  (the  second  unit)  is  non- 


*Since  periodic  time  signals  give  rise  to  discrete  spectral  components,  by 
the  symmetry  of  time -frequency  relations,  discrete  time  signals  give  rise 
to  periodic  spectra. 
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A  Transceiver  Configuration 


b. 


Hardware  for  Convolutional  Filter 


Figure  2:  The  Convolutional  Filter 
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|  Figure  3:  DSB-AM  Transmitter  Spectra 

i  (without  resampling  filter;  Symmetric  about  zero  frequency) 

i 
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recursive  (convolutional)  because  of  the*  straight  forward  implementation 
and  because  it  can  have  zero  differential  d*ilay  (perfectly  linear  phase) 
resulting  in  undistorted  pulses  when  the  system  is  used  for  digital  data 
communications,  instead  of  for  voice. 

The  convolutional  filter  hardware  (figure  2b)  operates  at  N  times  the 
sampling  rate,  where  N  is  the  number  of  stages  in  the  filter.  The  N  filter 
tap  weights  are  stored  in  an  MOS  read -only -memory  (ROM).  After  every 
N  shifts  of  the  recirculating  register,  a  new  sample  is  shifted  in,  the  oldest 
sample  is  shifted  out,  a  result  is  read  out  of  the  correlator,  and  the 
accumulator  in  the  correlator  is  reset. 

In  this  simple  version  (no  resampling  filter)  the  output  of  the  filter  is 
the  input  to  the  interpolator  (figure  la)  and  has  a  spectrum  as  shown  in 
figure  3c.  The  interpolator  serves  to  raiso  the  sampling  rate  to  twice  the 
I.  F.  carrier  frequency  (r^  =  2f  ).  Linear  interpolation  is  utilized  because 
it  combines  implementation  simplicity  with  adequate  suppression  of  unwanted 
spectral  repeats.  Filling  in  with  zero  samples  as  in  figure  4a  would  not 
change  the  spectrum  from  that  of  figure  3c.  The  store  and  repeat  inter¬ 
polation  of  figure  4b  would  attenuate  the  first  spectral  repeat  by  the  first 
zero  crossing  of  a  (sin  x) /x  curve.  While  linear  interpolation  (figure  4c) 
attenuates  it  more  effectively;  it  is  still  imperative  that  the  input  sampling 
rate,  r  ,  be  high  enough  for  the  interpolator  to  adequately  attenuate  the 
first  spectral  repeat. 

After  interpolation  (figure  3d),  the  samples  are  multiplied  by 
cos(27rf  n/r,,)  =  cos(7rn)  =  (-1)  resulting  in  the  spectrum  of  figure  3e.  This 
negation  of  every  other  sample  is  the  digital  equivalent  of  frequency  trans¬ 
lation  to  the  intermediate  carrier  frequency,  f  =  2r^.  Digital  frequency 
synthesis  and  translation  to  RF  are  discussed  Elsewhere  ^  ’  K 

The  corresponding  DSB-AM  receiver  is  as  shown  in  figure  lb,  bu. 
again  with  the  resampling  filter  removed.  The  bandpass  sampler  operates 
on  a  relatively  wide -band  IF  signal  as  represented  by  figure  5a.  Note 
that  if  the  signal  whose  spectrum  is  illustrated  in  5a  is  sampled  at  the 
carrier  frequency  (r  =  f  )  or  half  the  carrier  frequency  (r  =  f Q /2) ,  or  any 
integer  fraction  of  the  carrier  frequency  (r  =  f  /k),  the  resulting  spectrum 
has  a  component  at  zero  frequency  as  illustrated  in  figure  5b.  The  sampling 
rate  must  satisfy  the  inequality  r>B+B"  to  prevent  distortion  of  the  desired 
portion  of  the  spectrum  by  aliasing.  Phasing  of  the  sampler  can  be  aided 
(especially  in  the  suppressed  carrier  case)  by  an  error  control  loop  that 
drives  the  quadrature  samples  to  zero.  The  quadrature  (or  imaginary) 
samples  are  taken  one  quarter  of  a  carrier  cycle  after  the  corresponding  in 
phase  (or  real)  samples.  The  convolutional  filter  produces  a  signal  with  the 
spectrum  of  figure  5c  which  goes  into  a  digital  to  analog  converter  producing 
in  analog  signal  with  spectrum  given  by  figure  5d.  Note  that  the  filter  in 
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Figure  4:  Simple  Interpolation  Schemes  for  Increasing  the  Sampling 


Rate 
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the  receiver  is  identical  to  the  filter  in  the  transmitter,  with  even  the  samo 
tap  weights. 

Figure  6  applies  to  figure  la  with  the  resampling  filter  in  place.  The 
initial  sampling  rate  r.  =  8  kilohertz,  allows  for  some  aliasing  (figure  6b), 
but  not  enough  to  interfere  with  the  desired  signal  (rj>B+B').  The  re¬ 
sampling  filter  is  a  convolutional  filter  operating  at  =  Kr  j  kilohertz  on 
a  filtered  signal  whose  spectrum  is  shown  in  figure  6c.  The  resampling 
filter  is  designed  to  operate  at  a  rate  r^,  to  attentuate  the  r^  spectral 
repeats  (figure  6d).  However,  since  the  input  can  be  thought  of  as  being 
zero  filled,  as  in  figure  4a,  the  actual  resample  multiplication  rate  is 
reduced  by  a  factor  of  K. 

By  using  a  reduced  sampling  rate,  =  ^/K  for  the  initial  filter,  the 
number  of  tap  weights,  as  well  as  the  processing  rate  of  the  filter  is 
reduced  by  a  factor  of  K;  thus  reducing  the  multiplication  rate  required  for 
the  filter  by  a  factor  of  K^.  The  resampling  filter  does  not  have  cut-off 
requirements  as  sharp  as  the  previous  filter;  it  is  necessary  only  because 
linear  interpolation  would  be  inadequate  to  properly  attenuate  the  r^  spectral 
repeats.  The  spectral  repeats  are  attenuated  by  the  linear  interpolator 
(figure  4c)  which  can  be  thought  of  as  a  simplified  second  resampling  filter 
operating  at  a  high  output  sampling  rate,  r^  =  2fQ  (figure  6e).  Hardware 
considerations  might  make  it  more  economical  to  increas-  \"2  (and  hence 
the  complexity  of  the  resampling  filter)  so  that  the  interpolator  can  be  re¬ 
duced  to  a  simple  sample  and  hold  arrangement  (figure  4b).  Translation  to 
fQ  (figure  6f)  is  again  performed  by  negating  every  other  sample. 

An  alternative  frequency  translation  scheme  would  be  to  convert  to 
analog  at  r~  (assuming  fQ  is  an  integer  multiple  of  r^)  and  use  an  analog 
bandpass  filter  to  obtain  the  spectrum  of  figure  6f  directly  from  the  spec¬ 
trum  of  figure  6d.  This  alternative  procedure  is  not  used  because  our 
purpose  is  to  replace  analog  processing  with  digital  processing  wherever 
possible. 

Referring  to  figure  lb;  figures  7b,  7c,  7d,  and  7e  represent  the 
spectra  at  the  output  of  the  sampler,  the  resampling  filter,  the  filter,  and 
the  digital  to  analog  converter,  respectively.  The  resampling  filter,  as 
well  as  the  regular  filter,  is  identical  in  both  transmitter  and  receiver,  in 
receiver  operation,  if  r ^  -  Krj,  the  signal  is  loaded  into  the  resampling 
filter  K  samples  at  a  time  so  that  the  actual  multiplication  rate  is  again 
determined  by  the  lower  sampling  rate. 

2.  SINGLE  SIDEBAND  AM 

The  single  sideband  amplitude  modulated  (SSB-AM)  transceiver  con¬ 
figuration  is  given  in  figure  8.  The  spectra  at  the  input  and  output  of  the 
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Figure  6:  DSB-AMTransi 
(Symmetric  about  zero 
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Figure  7:  DSB-AM  Receiver  Spectra 
(Symmetric  about  zero  frequency) 


SSB -AM  Transceiver  Configuration 
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initial  analog  to  digital,  converter  are  illustrated  in  figures  9,a  and  9b,, 
assuming  a  sampling  rate  pf  about  8  kilohertz.  As  shown  in  figures  9c  and 
9d,  the  unwanted  sideband  can  be  filtered  out  by  a  real  lowpass  filter 
provided  the  spectrum  is  first  appropriately  shifted  in  frequency.  A  shift 
to  the  left  (or  right)  by  B/2  hertz,  for  upper  (or  lower.)  sideband  modulation, 
is  accomplished  by  multiplying  the  n^  sample  by  e+j7r^n/rl  =  cos  (jrBn/ri) 
Tj  sin(7rBn/r | ).  ,  The  resulting  complex  signal  (figure  9c)  is  then  filtered 
(figure  9d),  resampled,  and. interpolated  tp  produce  the  spectrum  of  figure 
9e  at  a  sampling  rate  of  r 3  =  4fQ,  'where  fQ  =  f^+B/2,  and  fc  is  the  nominal 
IF  carrier  frequency.  The  spectra  in  figures  9c,,  9d,  and  9e  are  not. sym¬ 
metric  about  zero  frequency  and  hence  the  corresponding  time  signals  ire 
complex.  The  upper  branch  in  figure  '8a  corresponds  to  the  real  part  of  the 
signal  and  the  lower  branch,  the  imaginary  part.  ! 

i  •  * 

The  frequency  translator  operates  at  r^  -  4£  samples  per  second  on 
a  complex  input  signal  1  ' 


Z  =  X  >+jY 
n  n  J  . 


d) 


to  produce  the  output 

I 


(2) 


whose  spectrum  is  illustrated  in  figure  9f.  Since  Wn  is  real,  its  amplitude 
spectrum  is  symmetric  about  zero  frequency. 


Since 


/]7rBT  r  -jffBT.  „  j  7tB  t 

X(T)e  h(t-T)dT  =  jX(t-T)&  h(r)dTe  ,  , 


(3) 


an  alternative  to  figure  8a  would  be  to  omit  t.he  read -only -memory  sine  and 
cosine  generator,  and  instead,  use  different  tap  weights  on  the  two  filters. 
If  hn  represents  the  n.  fitter  tap  weight  in  figure  8a,  the  alternate  system 
would  not  have  the  ROM  or  the  multipliers,  but  instead,  iwill  have  filters  in 
the  real  and  imaginary  channels  whose. n^  tap  is  hn- cos  (n-Bn/r ^)  and, 

+hn*  sin(;rBn/r  respectively.  The  corresponding  set  of  spectra  would  be 
similar  to  figure  9,  but  without  the  shift  to  the  left  by  B/2  hertz.  The  IF 
carrier  in  this  case  wquld  be  equal  to  f  =  r^  /4.  > 
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An  advantage  of  this  alternative  scheme  is  that  the  tap  weights  for  the 
real  channel  filter  can  also  be  used  in  the  double  sideband  configuration. 
Since  the  single -sideband  filter  passband  will  be  from  300  to  3,000  hertz 
(instead  of  0  to  3,  000  as  illustrated),  the  resulting  double -sideband  filter 
will  not  pass  d.  c.  This  is  desirable  for  filtering  out  the  carrier  (when 
operating  in  a  non  suppressed  carrier  mode),  and  is  in  fact,  precisely  how 
the  actual  double  sideband  filter  is  designed.  Disadvantages  of  the  alter¬ 
native  scheme  are  the  two  sets  of  filter  tap  weights  are  needed  and,  if  the 
resampling  filter  remains  real,  its  complexity  is  increased  due  to  the 
doubling  of  the  desired  passband. 

The  single  side  sideband  receiver  configuration  of  figure  8b  employs 
complex  sampling  of  the  real  IF  signal  whose  spectrum  (symmetrical 
about  zero  frequency)  is  shown  in  figure  10a.  The  sampling  rate,  r,,  must 
be  an  integer  fraction  of  fQ,  f  =  Kr£,  and  must  be  high  enough  to  prevent 
aliasing  from  interfering  with  the  desired  signal.  The  digital  complex 
signal  at  the  output  of  the  bandpass  sampler  has  a  spectrum  such  as  shown 
in  figure  10b,  with  spectral  repeats  at  the  sampling  rate,  but  without 
symmetry.  The  imaginary  samples  may  be  obtained  by  sampling  1  /(4fQ) 
seconds  after  the  corresponding  real  sample,  provided  f0»>B.  If  the 
IF  carrier  is  not  sufficiently  high,  more  sophisticated  techniques  must  be 
employed  to  obtain  the  proper  complex  samples.  The  resampling  filter 
brings  the  sampling  rate  down  to  rj  =8  kilohertz  while  cutting  out  the 
portion  of  the  unwanted  spectrum  that  might  cause  harmful  aliasing  at 
this  lower  rate  (figure  10c).  The  sharp -cutoff  filter  can  then  operate  at 
this  lower  sampling  rate  producing  the  output  spectrum  of  figure  lOd.  The 
read -only-memory,  multipliers  and  adder  in  figure  8b  perform  the  functions 
of  (1)  multiplying  by  el  j^Bn/ri  fco  shi£t  ttie  Spectrum  b/2  hertz  to  the  right 
(or  left)  and  (2)  taking  the  real  part  to  make  the  resulting  spectrum  sym¬ 
metrical  about  zero  frequency  (figure  10e): 

[+j7rBn/r,i  — 

Re  Z^e-  =  Xncos(7rBn/r1)+Ynsin(irBn/r1).  (4) 

After  digital -to -analog  conversion,  the  spectrum  appears  as  in  figure  lOf. 

3.  ANGLE  MODULATION  (PHASE  AND  FREQUENCY) 

The  first  four  units  of  the  phase  or  frequency  modulated  transmitter  in 
figure  11a  are  identical  to  the  corresponding  units  in  the  double -sideband  AM 
transmitter.  Consequently,  the  spectra  at  the  five  points  from  the  input  to 
the  A/D  convertor  to  the  output  of  the  interpolator  are  the  same  as  in 
figures  6a  through  6e,  but  with  r3  =  4fQ.  After  phase  modulation, 


Figure  10:  SSB-AM  Receiver  Spectra 


(5) 


iX„ 

Z  =  e  n  =  cosX  +jsinX  , 
n  n  n’ 

the  spectrum  in  figure  6e  broadens  and  becomes  nonsymmetrical.  Frequency 
translation  of  this  complex  signal  is  accomplished  by 


W  = 
n 


(6) 


as  in  the  case  of  single -sideband. 

The  receiver  in  figure  lib  uses  a  read -only -memory  at  the  rate  r?  to 
perform  arc -tangent  demodulation  of  the  digital  low-pass  complex  output  of 
the  bandpass  sampler.  The  demodulated  signal  is  resampled  in  order  to 
reduce  the  complexity  01  the  base  band  filter. 

Preemphasis  and  deemphasis  are  easily  added  to  the  FM  configuration 
as  illustrated  in  Section  V.4. 

4.  INTERPOLATION  AND  FESAMPLING 


All  of  Section  III  and  part  of  Section  VI  will  be  devoted  to  the  design 
of  convolutional  filters.  In  this  subsection  we  shall  consider  the  design  and 
performance  of  the  interpolation  filter. 

The  problem,  as  illustrated  in  figure  4,  is  to  take  a  signal  with 
sampling  rate  r  and  produce  a  signal  with  sampling  rate  Kr  (K  =  5  in  figure 
4).  Let  T  =  l/(Kr)  respresent  the  time  between  samples  after  interpolation. 
This  output  sampling  rate,  Kr,  will  be  the  basic  clock  rate  for  the  inter¬ 
polator. 

The  unit  pulse  is  defined  as 

^■{‘o^o0  (7) 


and  the  unit  step  is 


U 


n 


{0,  n<0 
1,  n>0. 


(8) 
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Figure  11:  PM/FM  Transceiver  Configuration 


Any  function  sampled  at  T -second  intervals  can  be  described  as  a  super¬ 
position  of  unit  pulses 


x 


n 


{9) 


The  unit  respon.se  of  a  time-invarient,  linear,  discrete -time  system,  H,  is 
defined  as  its  response  to  a  unit  pulse 


hn  =  H  W  <10> 

so  that  the  output,  y  ,  due  to  an  imput  xn,  is  given  by  a  digital  convolution: 


n 


x.h  . 
1  n-i 


(ID 


For  a  store  and  repeat  interpolation  filter  (figure  4b)  we  have 


y 

n 


n 


E 

i=n-K+l  1 


(12) 


so  that  its  unit  response  is  given  by 


h 

n 


=  VUn-K 


(13) 


as  illustrated  in  figure  12a.  Taking  the  Z  transform,  its  transfer  function 
is 


H(z)  = 


1  -z 
1  -z 


(14) 


Thifc  interpolator  may  be  implemented  as  a  K-l  stage  convolutional  filter 
with  all  unity  weights  as  shown  in  figure  12b  or  by  any  of  the  equivalent 
recursive  implementations  shown  in  figures  12c,  d,  and  e. 
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To  obtain  the  linear  interpolation  of  figure  4c,  but  with,  a  delay  of  KT 
seconds  we  require  an  interpolation  filler  with  the  unit  response  shown  in 
figure  13a.  This  can  be  implemented  as  a  2K+1  stage  convolutional  filter 
as  shown  in  figure  2a;  with  the  tap  weights  given  by  figure  13a. 

Since  figure  134  can  be  obtained  by  convolving  figure  l'2a  with  itself 
and  introducing  an  additional  delay  of  ,T  seconds,  the'linear  interpolator  1  is 
implemented  in  figure  13b  by  cascading  two  store- and  repeat 'structures 
from  figure  12c.  Other  realizations,  are  given  in  figures  13c  and  d.  The 
last  is  obtained  by  noting  that 


H(z) 


-1 11  -z 


-K\ 


z2K-2zK+I 


'1  -z 


-1 


z2K+1-Zz2K+z2K'1 


The  structures  in  figures  13b,  c,  and  d  should  include  an  attenuation  factor, 
1/K  to  be  strictly  consistent  with  figure  13a. 

J 

Now  that  we  can  realize  interpolation  filters,-  let  us  consider  their  1 
frequency  response.  Since  their  unit  response  is  symmetric  about  some  ■ 
value  of  time,  their  phase  will  vary  linearly  with  frequency,  resulting  in 
zero  differential  delay  in  spite  of  the  nonrecursive  ^realisations.  The 
frequency  response  of  the  store  and  repeat  interpolator  is  obtained  by  taking 
the  Fourier  transform  of 


K-l  i 

h(t)  =  £  i(t-nT).  1  '  .  (16) 

n=0  1 


Thus 

?[h(t)] 


=  cos(K-na)T/2s^K^'y/2-jsin(K-l)u)T/2-?nK^'yo/2 

'  sinwT/2  J  '  sinwT,/2 


sinKwT/2e  -  j  (K  - 1  )uT  /2 
sinwT /2 

-23- 


K-l  K-l 

E-jnwT  r-> 

e  =  L  (cosnwT-jsi-nnwT) 

n=0  n=0 


(17) 


i 


where  use  has  been  made  of  series  (465)  and  (466)  on  page  86  of  reference  3. 
In  terms  of  the  frequency  variable,  f  =  w/27r, 


H(f)  =  sinKTrft  c-i(K-l)7rfT 
sinjrfT 


_  sinfff/r  c-j^~7rf/r 
sin?rf /Kr 


where  r  was  the  sampling  rate  before  interpolation.  It  is  evident  from  the 
first  line  of  the  derivation  that  H(f)  repeats  with  a  period  of  Kr  =  1  / T: 


H(f)  =  H(f+iKr). 


I.L 

It  has  zeroes  at  all  multiples  of  r  other  than  the  iK  (i.  e.  ,  Hiir) 
i  =  1,  2,  ....  K-l  and  H(Kr)  =  H(0)  =  K).  Furthermore, 


=  0  for 


1  rnn  ^  sinirf/r 
K 


as  K — ►oo.  For  the  case  K  =  2  we  have 


H(f)  -  c-i7rfT 

sinn-fT 


=  2cos7rfTe 


-  j  7rf  T 


=  1+e 


-j27rfT 


whose  amplitude  and  phase  spectra  is  plotted  in  figure  14a, 


The  frequency  response  of  the  linear  interpolator  is  given  by 


-25- 


M 


\r  xr  3tr  y/c  sr  if 


a.  Store  and  Repeat 


I  IM»I 


-ir  ~r  o  r  zr  */r  5T  tr 


0(f)  --zirf/r 


-•U/r 


b.  Linear  Interpolation 


Figure  14:  Amplitude  and  Phase  Spectra  for  Two-to-One  Interpolation 


v>4M 


>-j27rfT  _  1  sinKn-fT,  2c-j2K7rfT 
"  K  sinTrfT 


_  1  .sinrf/r  2  -j?.7rf/r 
-  K  3in7rf/Kr 


This  has  period  Kr,  zeros  at  multiples  of  r  other  than  the  iKc  ,  and 


as  K — ►co.  For  the  case  K  =  2, 


H,(f)  =  2cos2rrfTe'*;’47rfT 

=  (l+cos27rfT)e-j47rfT, 


as  shown  in  figure  14b.  Before  interpolation  the  signal  spectrum  repeated 
every  r  hertz.  Both  interpolators  in  figure  14  serve  to  attenuate,  every 
other  spectral  repeat,  with  the  linear  interpolator  doing  a  better  job. 

The  analysis  in  Section  III.  l.b  of  Reference  1  is  valid  only  for  large 

sampling  ratios,  K,  since  a  response  is  used,  instead  of  r 

*  rrf/r  *  sin7rf/Kr. 

Assuming  K  large  and  letting  2B  represent  the  total  signal  bandwidth  into 

the  interpolator  (B»l.  5KHz  for  SSB  modulation  and  B  =  3KHz  for  DSB  and 

angle  modulation)  the  ratio  of  the  total  energy  contained  in  the  unwanted 

spectral  repeats  to  the  desired  energy  was  bounded  in  reference  1  for 

store -and-repeat  interpolation: 


B  2  v  ~7r2B2 

ERH  <  2(7)  L  13  2  ' '— ( 7) 
m=l(m-r) 


ERH  <  5-20  log  1 
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Similary,  for  linear  interpolation,  we  find: 


B4?  1 

ERH  <  2(Fr  - B? 

m=l<m-r) 


45'r  ’ 


ERH  <  3  -  40  log  ^ 

B 


Thus,  if  the  sampling  rate  before  interpolation  is  r  =  16B  (e.  b. ,  B  =  3KHz 
and  r  =  48KHz),  then  linear  interpolation  can  produce  more  than  45  db 
attenuation  of  the  unwanted  energy.  Since  we  chose  the  original  sampling 
rate  to  be  r^  =  8KHz  we  shall  use  the  resampling  filter  to  bring  the  rate  up 
by  a  factor  of  6,  to  r ^  =  48KHz. 


Note  that  the  sharp  cut-off  filter  operates  at  the  lowest  possible  rate, 
r.  =  8KHz.  The  number  of  taps,  N^,  which  must  be  large  because  of 
stringent  filter  requirements,  is  minimized  by  using  a  low  sampling  rate. 

The  multiplication  rate  for  that  filter  is  multiplications  per  second. 

The  resampling  filter  can  have  a  relatively  wide  transition  region 
between  passband  and  stopband.  It  can  thus  operate  at  a  higher  sampling 
rate,  r^  =  48KHz,  without  an  excessive  number  of  taps,  N^,  -  N^.  Since 
its  input  is  "zero  filled"  in  transmitter  operation  and  since  only  every  6^ 
output  sample  need  be  computed  in  receiver  operation,  the  multiplication 
rate  for  this  filter  is  only 

Finally  since  the  interpolation  filter  will  operate  at  an  extremely  high 
rate  (r^ctflMHz),  an  implementation  was  found  that  requires  no  multiplications 
at  all.  This  was  possible  because  an  extremely  wide  transition  reqion  is 
allowed.  If  the  interpolation  filter  had  required  N3  tap  weights,  its  multipli¬ 
cation  rate  would  have  been  Fortunately,  an  implementation  was 

found  for  which  N3  =  0. 
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•SECTION  III 


FINITE  RESPONSE  FILTER  DESIGN 


For  a  digital  filter  to  have  a  perfectly  linear  phase  versus  frequency 
characteristic,  its' unit  response  mu:st  be  symmetrical  about  some  point: 


1C  ,  n  .=  M  ! 

1° 

2C  |n-M|  ’  =  1‘  2,  ‘  ‘  '  M 

0  ,  ,  |n-M|  >M. 


1  (1) 


The  combined  requirements  of  symmetry  (h^  ^  =  hj^+n)  and  physical 
realizability  (hn  =  0  for  n<0)  imply  a  unit*  response  of  finite  duration: 


n<0)  imply 


respons< 


h  =  0  for  n<0  and  n>2M, 
n 


Such  a  finite  response  can  be  readily  implemented  in  a  noh -recursive  (or  , 
convolutional)  structure.  The  filter  tap  weights  are  simply  the  values  of  the 
unit  response.  ( 

■  .  1  i 

The  frequency  response  corresponding  to  equation  (1)  is 


1  2M  .  r 
H(f)  =  £  hne~  ‘ 
n  =  0 


-j27rnf/r  -j27rMf/r 
=  e 


'  £  CKcos(27rKf/r)  i  ' 
K=0 


=  e"j2,rMf/rHo(f). 


The  problepi  is  to  choose  the  M  values  of  Cpj  so  ihat  HQ(f)  adequately 
approximates  a  desired  frequency  response  while  the  order  of  the  filter, 
2M+1,  is  kept  small.  There  has  been  much  recent  activity  and  progress  in 
the  design  of  such  finite  response  filters.  This  section  will  serve  to 
summarize1  this'  progress  and  to  iuLr'viuce  our  design  approach.  \ 
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Finite  response  filters  are  commonly  referred  .to  as  non-recursive 
(or  transversal)  filters.  As  weihave  ,s.een  with  the  interpolation  filters 
discussed  in  section  II.  4,  finite  response  filters  can  be  implemented 
recursively  as  well  as  non -recursively.  A  discussion  of  the  relative  merits 
of  these  two  implementation  approaches  is  deferred  to  Section  VI.  1.  Until 
then,  we  shall  assume  a.  non-rccursive  implementation  for  the  filters 
discussed  in  this  section.  ,  '  > 


1. 


WINDOW  CARPENTRY 


The  classical  design  approach  (4,  5,  6)  has  bee,n  to  find  the  unit 
sample  response  corresponding  to  the  desired  frequency  response  and 
truncate  it  by  an  appropriate  window  function.1  *  :  > 


Consider  the  problem  of  approximating  an  ideal  low-pass  filter  with 
zero  phase,  unity  gain  from  -B  to.Bhz,  and  zero  gain  elsewhere:  , 


Ho(f>  =  < 


1,  -B<f<B  1 
0,'  elsewhere. 


(3.) 


The  corresponding  impulse  response  is 

.  i  i 


i 


i 


h(t)  =  ?.Rsin2'7rBt 
2rrBt 


i 


•  .  i 

The  sampled  data  version  of  this  filter  has  a  unit  response 


I  t 


f  r/2 

K  - 1  / 
n  !  r  /  i 

J-r/2 


H  (£)ej2,rnl/rdf 
o 


=  2 l§H_2znB/r  n=0  ,+i  +2>  .  .  . 

r  1  2jrnB  /r 


(4) 


and  an  ideal  filter  spectrum  that  repeats  at  the 1  sampling  rate,  r  (r>2B). 
This  ideal  filter,  however,  requires  a  unit  response  of  infinite,  duration. 
Simple  truncation  to  2M+1  terms  by  merely  setting  hn  =  0  for  |n|>M  (the 
so  called  rectangular  window)  rbsults  in  a  9  percent  frequencv  response 
overshoot  at  the  band  edges  (the  so  called  Gibbs  phenomenon  ^  ^). 

1  i 

.  '  '  ■  ’  * 

i  1 
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Multiplying  h  by  a  finite  duration  window  function  wn  ( wn  = 

Ofon  |n|>M)  results  in  a  finite  duration  unit  response  whose  spectrum  is  the 
convolution  of  HQ(f)  with  W(f)  the  Fourier  transform  of  the  window  function. 
The  window  function  is  chosen  so  that  W(f)  has  a  narrow  main  lobe  with 
small  sidelobes.  The  rectangular  window 


/ 1,  n=0,  +1,  +2.t  •  ■  ■ ,  +M 
n  \o,  elsewhere 


is  inadequate  because  of  the  sidelobes  in  its  Fourier  transform.  Triangular 
and  truncated  gaussian  windows  offer  some  improvement,  though  decreased 
sidelobes  come  at  the  expense  of  a  widened  main  lobe  (for  fixed  M).  Win¬ 
dows  of  the  form 


w  =  C+(l -C)cos(7rn/M),  n=0,  +1,  +2,  ...,  +M  (6) 

n  _  _  _ 

(4) 

have  historically  been  found  useful,  in  that  they  serve  to  cancel  the  first 
(sinx)  /x  sidelobe  of  the  rectangular  window  without  appreciably  widening  the 
main  lobe.  For  C  =  0.  54  we  have  a  Hamming  window,  for  C  =  0.  5  we  have 
a  Hanning  window,  and  for  C  =  u.  56  we  have  Stockham's^  modified  Ham¬ 
ming  window.  A  variety  of  other  more  complex,  windows  (including  the  Kaiser 
and  Dolph-Chebyschev  windows)  have  been  found  even  more  effective.  9) 

The  major  advantage  of  the  time -domain  window  approach  is  the  extreme 
simplicity  of  the  filter  design  procedure. 

2.  FREQUENCY  SAMPLE  SPECIFICATION 

This  approach,  introduced  by  Gold  and  Jordan^  ^  and  developed  by 
Rabiner,  Gold  and  McGonegal,  ( ^ specifies  the  filter  response  at 
discrete  frequencies. 

Consider  the  ideal  low-pass  filter,  H0(f),  which  is  an  even  function  of 
frequency.  The  frequency  range,  0  to  £,  is  divided  into  M  segments  and 


Hi  =  H(2M}’  i=0*  2>  ••  •’  M  (?) 
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is  specified  to  be  unity  for  2m<®  an<*  zero  f°r  2M>®*  with  H  ^  =  H^.  These 

values  can  be  viewed  as  the  Fourier  Series  coefficients  of  a  periodic 
version  of  h(t).  Instead  of  being  truncated,  h(t)  is  aliased  by  its  periodicity. 
The  sampled  version  of  this  h(t)  furnishes  a  possible  set  of  filter  tap  weights, 
hn.  The  weights  hn  can  be  obtained  from  H(^L)  by  the  Discrete  Fourier 

Transform  (utilizing  an  FFT  algorithm)..  Unfortunately,  the  corresponding 
spectrum,  while  agreeing  with  the  ideal  at  the  specified  points,  is  far  from 
ideal  elsewhere.  To  overcome  this  problem,  a  few  frequency  samples  in 
the  neighborhood  of  the  transition  frequency  (+B  hertz)  are  allowed  to  vary 
in  amplitude.  The  overall  frequency  response  is  thus  improved  (as  in  the 
window  approach)  by  reducing  the  ripple  near  the  band  edges  at  the  expense 
of  broadening  the  transition  band. 

This  procedure  usually  outperforms  the  window  approach,  but  at  the 
expense  of  a  linear  search  for  the  optimum  values  of  the  frequency  samples 
being  varied. 

3.  ZERO  PLACEMENT 

The  previous  approach  specifies  a  uniform  placement  of  real 
frequency  zeros  in  the  stopband.  A  variant  due  to  Requicha  and  Voelcker^  ^ 
specifies  the  non-uniform  placement  of  all  real  and  complex  zeros,  resulting 
in  filter  stopbands  that  are  specified  in  terms  of  attenuation  rates  measured 
in  decibles  per  octave. 

If  Nv  real  frequency  zeros  are  uniformly  spaced  over  the  entire  r 
hertz  frequency  range  and  M  of  these  are  replaced  by  N  complex  passband 
zeros  (leaving  Ns  =  Ny  -  M  stopband  zeros)  an  approximate  asymptotic 
attenuation  rate  of 


A  =  -6(M-Np)  =  -6^Nv-(Ns+Np)]  db/octave  (8) 

is  achieved.  Thus,  high  attenuation  rates  are  achievable  by  closely  pack¬ 
ing  the  stopband  zeros. 

4.  EQUAL  RIPPLE  SPECIFICATION 

The  most  sophisticated  approach  to  nonrecursive  filter  design  is  to 
specify  the  order  of  the  filter  and  the  maximum  allowable  ripple  in  both  the 
passband  and  stopband.  A  non-linear  optimization  technique  is  then  used  to 
specify  the  filter  meeting  these  contraints  with  a  minimum  transition  bandP^ 
Herrmann  has  available  the  tap  weights  of  400  filters  designed  in  this 
manner.  An  efficient  algorithm  (due  to  Hofstetter^))  for  the  design  of 
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optimum  non-recursive  digital  filters  having  prescribed  equal  stopband  and 
equal  passband  ripples,  is  outlined  below. 


lit 6 IF  spB'eilicacion  is  given  in  terms  of  the  maximum  allowable 
deviation  from  unity  in  the  passband,  J",  the  maximum  allowable  deviation 
from  zero  in  the  stop  band,  Ss,  the  maximum  number  of  extrema  in  the 
passband,  n^,  and  the  maximum  number  of  extrema  in  the  stopband,  ng.  The 
filter  of  minimum  order,  2M+1,  will  have  M  =  np+ns+l.  The  passband  edge, 
f  ,  and  the  stopband  edge,  fg,  are  defined  as  the^frequencies  at  which  the 
response  first  leaves  and  finally  enters  the  corresponding  tolerance  region, 
|H(f)-l|<  §  and  |H(f)j  <  The  narrowest  transition  band,  |  fg-fpj, 

occurs  whei? the  filter  is  equiripple  in  both  the  passband  and  the  stopband. 
Since 


Ho<f)  =  £  Ckcos27rKf/r 
K=0 


can  be  written  as 


H  (£)  -  Z 


where  x  =  cos27rf/r,  a  trigonometric  polynomial  approximation  to  the  desired 
frequency  characteristic  is  being  sought. 


The  design  algorithm  begins  with  an  initial  set  of  M+l  frequencies 
(0  =  f  <fjL<f_<. .  .<fm  =  r/2)  and  a  Lagrange  interpolation  polynomial  that 
goes  through  the  values  ljf  Sp  and  +_  £  at  these  frequencies  (the  black  dots 
in  figure  15).  The  second  iteration  ufilizes  the  frequencies  at  which  the 
extrema  of  the  first  polynomial  occur  (the  open  dots  in  figure  15).  The 
procedure,  utilizing  a  varient  of  the  barycentric  form  of  the  Lagrange 
interpolaration  formula,  is  continued  until  all  the  extremum  frequencies  are 
equal  to  their  counterparts  from  the  previous  iteration.  The  filter  tap 
weights,  h^,  are  obtained  from  this  final  H(f)  as  a  discrete  fourier  trans¬ 
form  of  H(^L-). 

Slight  variations  of  this  procedure  can  be  used  to  design  bandpass  filters, 
low  pass  differentiators,  etc.  For  example,  a  bandpass  differentiator 
having  an  ideal  frequency  response 
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Figure  15:  The  Hofstetter  Finite-Response  Design  Algorithm 

for  an  1 1 -tap  Low-Pass  Filter  with  n  =n  =  2 

P  s 
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H(f)  = 


0  ,  |f|<b 

j2:rf,  b<)f|<B 
0  ,  |f|>B 


(ID 


would  be  specified  to  be  purely  imaginary  and  to  remain  within  +  ^  and 
+  ^  ln  the  tw0  stopbands  and  within  2?rf ( 1_+  Sp)  in  the  passband  (i.  e. ,  the 
percentage  error  in  the  passband  is  specified).  The  fact  that  the  procedure 
converges  rapidly  and  yields  an  optimum  design  makes  it  extremely 
attractive. 

5.  QUANTIZATION  effects 

Errors  are  introduced  in  convolutional  filters  through  limited  word- 
lengths  for  the  state  variables  (the  signal  values  stored  in  the  shift  registers) 
and  for  the  filter  tap  weights  (the  constants  stored  in  read -only-memories). 
Errors  of  the  first  type,  including  the  rounding  of  the  result  of  the  con¬ 
volution,  can  be  described  as  additive  noise  with  variance  E^/12,  where  E 
is  the  quantization  level  difference.  Errors  of  the  second  kind,  however, 
can  alter  the  frequency  response  of  the  filter. 

A  filter  designed  according  to  one  of  the  preceeding  methods  to  satisfy 
certain  ripple  specifications,  will  no  longer  meet  those  specifications  when 
the  tap  weights  are  rounded.  However  there  may  exist  a  set  of  weights, 
within  the  word  length  limitation,  but  different  than  the  rounded  version  of  the 
ideal  weights,  that  does  satisfy  the  filter  requirements.  Avenhaus  and 
Schussler^  ’  ^  have  proposed  a  modified  Gauss -Seidel  procedure  for 
searching  the  discrete  parameter  space  in  the  neighborhood  of  the  ideal, 
for  an  optimum  set  of  quantized  tap  weights. 

6.  INTERACTIVE  DESIGN  AND  THE  RAISED-COSINE  ROLL-OFF 

As  pointed  out  in  the  last  section,  most  algorithms  for  optimum 
filter  design  are  relatively  meaningless  if  the  filter  tap  weights  are 
rounded  to  accomodate  a  word -length  limitation.  Our  approach  for  an 
expedient  (rather  than  optimum)  design  has  been  a  human  search  on  a 
computer  terminal.  A  computer  program  was  written,  based  on  the  simple 
window  approach  and  designed  for  man-machine  interaction.  The  program 
rounds  the  tap  weights  and  performs  a  fast  Fourier  transform  on  these 
rounded  weights  to  furnish  the  actual  frequency  response.  The  number  of 
bits  precision  (word -length),  L,  the  window  parameter,  C,  the  6  db 
cutoff  point,  B,  and  M  (where  2M+1  is  the  nominal  number  of  filter  taps) 
are  parameters  at  the  disposal  of  the  designer.  Because  the  magnitude  of 
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the  tap  weights  decrease  as  n  increases,  the  weights  eventually  fall  below 
E/2  where  E  is  the  quantization  level  difference.  These  weights  are 
rounded  to  zero,  so  that  the  actual  order  of  the  filter,  N,  is  less  than 
2M+1. 


Specifications  were  set  on  the  allowable  passband  and  stopband  ripples 
and  on  the  maximum  allowable  transition  width.  A  search  for  the  filter  of 
minimum  order  for  a  given  precision  revealed  Inat  the  minimum  number  of 
taps  occurred  at  the  values  of  the  parameters  C  and  M  for  which  the 
natural  truncation  phenomenon  was  most  pronounced,  i.  e.  ,  when  (2M+D-N 
was  a  maximum. 

/  I  O  \ 

This  led  to  consideration  of  the  raised -cosine  filter  characteristic. 

The  ideal  filter  characteristic 


Ho(f)  =  1,  0<f<B 


(12) 


shown  in  figure  16a  corresponds  to  an  impulse  response: 


h(t)  =  2B 


sin(2ffBt) 

27rBt 


(13) 


Which  decays  asymptotically  as  1/t  and  has  a  corresponding  unit  response: 


sin(2?rnB  /r) 
jrn 


(14) 


The  raised -cosine  filter  characteristic  with  roll-off  oC 


Hj(f) 


1,  0<f<(l-ct)B 


,  (l-0C)B<f<(l  +  d)B 


(15) 


shown  in  figure  16b  corresponds  to  an  impulse  response 
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Figure  16:  The  Raised -Cosine  Filter  Chax 


-3 


I 


h(t)  =  ?Bsin(27rB<:)  co3(27rocBt) 
27rBt  1  -4(2  oCBt)2 


which  decays  as  1 /t"5  for  large  t.  The  corresponding  unit  response, 


h  -  s^n(^nB  / r)  cos(27r<?CnB  /r) 
n  "  •  7rn  !-4(2cX‘nB/r)2 


with  the  second  factor  cos(ttx)/(1  -4x2)  set  equal  to  tt/4  when  x  =  1/2,  will 
enhance  the  natural  truncation  phenomenon  because  of  the  1/n^  decay. 

By  utilizing  a  small  value  for, of,,  a  filter  of  low  order  N  is  obtained  with¬ 
out  too  great  a  sacrifice  in  transition  width  (fg  -f  2t2<X).  Unfortunately, 
this  natural  truncation  gives  rise  to  ripples  in  iriuch  the  same  way  as 
does  rectangular  truncation.  However,  when  this  technique  is  used  in 
'conjunction  with  a  window, 


£c+(l -C,eos(jrn/M,] , 


excellent  results  are  achieved. 

The  details  of  the  interactive  filter  design  program  are  given  in 
Section  VI.  2.  1 
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SECTION  IV 


BANDPASS  SAMPLING 


1.  IN-PHASE  AND  QUADRATURE  SAMPLING 


In  this  section  we  will  derive  some  of  the  basic  mathematical  relations 
pertaining  to  the  in-phase  and  quadratrue  sampling  technique  used  for  trans¬ 
lating  a  bandpass  signal  to  lowpass.  In  general  we  will  be  concerned  with  a 
real  signal  s(t)  whose  Fourier  transform  S(u)  is  band  limited  and  centered 
approximately  at  .  More  specifically  let 


F  [s(t)l  =S(co),  where  S{co)  =  0  for  fc  -W>  jf  j>fc+W 


(1) 


as  shown  in  figure  17a. 

The  analytic  signal  Z(t)  of  s(t)  is  defined  as 


Z(t)  =  s(t)+js(t) 


(H) 


where,  s?(t)  is  the  Hilbert  Transform  of  s(t).  The  Fourier  Transforms  of 
Z(t)  and  £?(t)  are  respectively  given  by 


F  f  Z(t)  1  =  /2S<w>  foru>° 
L  j  \  0  for  u><0 

F  f  §(t)j  /-jSMlorw>0 

l  v  M  y  jS(w)  for  w<0 


In  words,  the  spectrum  of  the  analytic  signal  Z(t)  is  the  one  sided  spectrum 
of  s (fc)  and  the  spectrum  of  the  Hilbert  Transform  s(t)  is  the  spectrum  of 
s (fc)  with  the  negative  frequencies  shifted  7r/2  and  the  positive  frequencies 
shifted  -tt/2. 
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Waveform  Spectra  for  In-Phase  and  Quadrature  Sampling 


Let  us  now  define  R(t)  the  complex  envelope  of  s(t)  at  frequency  fc  by 
the  equation 

R(t)  =  Z(t)exp  [-jcoct]  =  I(t)+jQ(t)  (5) 

where  I(t)  and  Q(t)  can  be  seen  from  definition  (5)  to  be  given  by 


I(t)  =  s(t)coswct+s(t)sinwct 
Q(t)  =  s(t)coswct-s(t)sinwct 


(6) 


Also  from  equations  (6)  we  can  solve  for  s(t)  and  s(t)  to  obtain 


s(t)  =  I(t)coswct-Q(t)sinwct 
s(t)  =  I(t)sinwct+Q(t)coswct 


(7) 


The  Fourier  Transform  of  R(t)  denoted  by  R(u>)  is  the  transform  of  the 
analytic  signal  Z(t)  translated  down  in  frequency  by  fc.  Similarly  the 
spectrum  R*(w)  of  the  complex  conjugate  R#(t)  of  R(t)  is  the  spectrum  the 
conjugate  Z*(t)  of  the  analytic  signal  translated  up  in  frequency  by  fc,  i.  e. 
the  negative  frequency  part  of  S(<o)  translated  up  by  fc.  Both  R(co)  and 
R*(w)  are  shown  in  figures  17b  and  17c  respectively.  Note  that  R*(<o)  is 
not  the  complex  conjugate  of  R(o>) .  If  we  denote  the  complex  conjugate  of 
R(«o)  by  R(w)  then  R*(w)  is  given  by 


R*(«)  =  R(-«)  =  Ar(-u)-jBr(-<o) 

where  (8) 

RM  =  Ar(w)+jBr(w) 


and  A  (w)  and  Br(w)  are  the  real  and  imaginary  components  of  the  spectrum 
R(u).  r 


Now  let  I(«)  and  Q(«o)  respectively  represent  the  Fourier  Transform 
of  I(t)  and  Q(t).  From  the  definitions  of  R(cu)  and  R*(«)  we  thus  leave 
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Ar(a>)+jBr(u)  =  I(w)+jQ(w) 

and 

Ar(-co)-jBr(-w)  =  I(w)-jQ(o>) 

(9) 

from  which  we  obtain 

I(co)  =  1 

/2[ArM+Ar(-u))]  +J1/2  [Br(to)-Br(-W)j 

and 

r  i  r  t 

(10) 

QM  =  1 

/2  [BrM+Br(.w)J  -jl/2  [Ar(a))-Ar(-a>)j 

Consider  now  the  case  where  we  sample  the  real  bandpass 

signal  s(t) 

at  times 

tmi  = 

and 

Lmq  =  mT-T 

where 

(11) 

T  =  nTc<l  /W  and  Tc  =  1  /fc 

and 

•t  =  kTc+Tc/4. 

and  where  m,  n  and  k  are  integers. 

In  words,  we  sample  s(t)  at  times  tm^  to  obtain  the  in-phase  samples  and  at 
times  tmq  to  obtain  the  quadrature  samples.  The  period  T  as  noted  from 
equations  (11)  contains  an  integral  number  of  cycles  at  frequency  fc«  Thus 
the  mth  in-phase  sample  is  given  by 

s(tm.)  =  I(mT)  (12) 


which  is  obtained  from  equation  (?)  after  replacing  t  with  tm^. 

Similarly  the  quadrature  samples  are  obtained  at  times  tmq  which 
differ  from  the  in-phese  sampling  times  by  one  quarter  cycle  of  frequency 
fc.  Thus  the  mth  quad.^ture  sample  is  similarly  obtained  by  substituting 
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tm  in  equation  (7)  i.:e. 


!  s(fcmq)  =  Q(mT-T)  ,  (13) 

•  ’  i  1 

We  will  now  show1  that  the  in-pha'se  and  quadrature  sampling  technique 
can  recover  to  a  good  approximation  the  spbctrum  R(w)  of  the  complex 
envelope.  Inasmuch  as  R(w)  contains  all  of  the  information  in  s(t).  Recovery 
of  R(a>)  would  therefore  be  adequate.  Since  the  signal  isj  sampled  at  a  rate 
fs  we  will  in  fact  not  recover  R(u>)  but  rather  Rs(cp)  which  is  R(w)  repeated 
periodically  with  per'iod.fs.  If  fg>W  there  will  be  no  spectral  overlaps  and 
therefore  Rs(w)  as  shown  in  figure  17d  will  also  contain  all  of  the  information 
in  the  original  R(w).  ,  , 

.  .  '  •  1 
Consider  now  the  two  functions  I(t)  and  Q(t--r)  the  sampled  values  of 
these  two  continuous  functions  being  our  in-phase  and  quadrature  samples 
given  by  equations  (12)and  (13).  The  Fourier  Transform  of  these  functions 
are  obviously  given  by  *  1 


,(14) 


can  be 

R'(co)  =  I(w)+jQ(w)e~-'WT  '  ' 


and 


F[l(t)]  1  =  I(u>)  !  • 

;  \ 

F'[Q(t-T)j  =  Q(w)e"jaJT 


and  therefore  the  recovered  spectrum  R'(co)  for  the  continuous  cas'< 
written  as  , 


which  after  some  algebraic  manipulations  and  using  equations  (8),  (9)  and 
(10)  becomes 

.  '  I  » 

R 1  (oo)  =  |^R(u>)coswT/2+jR*(w)sinwT/2j  e’-ia>T‘^  <  (15) 

The  recovered  spectrum  R's(w)  of  the  sampled  waveform  will  be  the  same' 
as  in  equation  (15)  repeated  periodically  with  period  equal  to  the  sampling 
rate  fs.  'The  recovered  spectrum  after  in-phase  and  quadrature  sampling 
will  thus  consist  of  the  desired  spectrum  R(w).  filtered  by  a  cosu>t/2  term 
and  an  undesired  term  R*(w),  (the  negative  frequencies  term  o^  the  original' 
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spectrum  S(w)),  filtered  by  jsinw-r/2  as  shown  in  figure  17e.  :  The  , 
exp(rjwr/2)  term  of  course  represents  a  time  delay  of  t/2  and  is  of  no 
significant  consequence.  *  Clearly  from  equation  (15)  one  wbuld  want ‘to 
niake  t  as  small  'as  possible  in  order  to  minimize'the  effects  of  the  inter¬ 
fering  term  R*(co).  From  equation  (11)  it  can  be  seen  that  the  smallest  t 
can  be  made  in  T.,/4  which  would  result  in  filter  characteristics  of 

V*  i  i  j 

coswTc/8  and  sincoTc/8  respectively  for -the  desired  and  undesired  terms. 
The  extent  to  wjuch  the  recovered  signal  thus  described  will  differ  from  the 
desired  signal  is  thus  seen  qlearly  to  depend  on  the!  ratio  W/fc.  Thus  if 
W/fc«l,  i.  e.  if' the  narrowband  approximation  holds,  then  the  interfering 
term  would  be  negligible  otherwise,  it  will  not.  ,  If  the  narrowband  approxi¬ 
mation  does  not  hold  or  if  the  requirements  are  such  that  the  interfering 
term  cannot  be  tolerated  thein  one  must  find  ways, of  eliminating  or  reducing 
this  interference.  We  will  describe  tv;o  approaches  which  will  enable  us 
to1  reduce  the  interfering  component  R*(w)sinu>T/2.  In  the  first  approach 
the  sampled  values  of  I(t)  and  Q(t-r)  are  filtered  digitally  while  in  the 
second  approach  instead  of  sampling  twice  per  period  T  we  sample  more 
often1  to  obtain  sampled, values  of  I(t),  I(tj^2T),  I(b+4-r).'. .  and  Q(t+T), 

0(t+3-r).  . .  , 

i 

2.  FILTERING  >I(t)  and  Q(t-r) 


•  Consider  a  pair  of  conjugate  filters  F  and  f*  given  by 


F  =  |F(w)|  exp  [j<j>(o>)] 
F*  =  |F(«)|  exp  [-j^{«)] 


and  let  us  filter  the  I(t)  and  Q(t--r)  recovered  components  of  the  signal 
respectively  with  the  above  two  filters.  Our  recovered  signal  spectrum 
R'(w)  will  thus  bei given  by  '  '  > 


R'(w)  =  I(w)  |F(w)|,exp|jcf>(w)J 

+jQ(w)  |F(w)|  esp|-j<t>(w)-w-rj  . 


lAgain  after  some  hlgebraic  manipulations  and  using  equations  (8),  (9)  and 
(10)  equation  (17)  becomes  i  .  , 


,i 


(18) 


R'M 


{r  («)  |f(«)|  COS  J^<t>(w)+0)T/2j 
+jR*(co)  If(co)|  sin  |<}>(<o)+coT/2j|'  exp(-jwr/2). 


As  in  equation  (15)  the  exp(-jco-r/2)  term  represents  only  a  time  delay  and  is 
of  no  significant  consequence. 

If  the  recovered  signed  R'(co)  is  not  to  contain  any  interference  terms 
then  the  magnitude  |F(co)|  of  the  filters  F  and  F*  must  equal  to  unity  and  the 
phase  (j>(w)  must  equal  -cot/2,  i.  e.  the  phase  must  be  linear.  The  impulse 
response  of  the  F  and  F*  filters  will  thus  be  a  (sin  x)/x  delayed  (or  advanced^ 
by  t/2  with  zero  crossings  at  intervals  T.  Figure  18  shows  a  convolutional 
digital  filter  implementation  of  these  filters  where  each  filter  has  2n+l  tap 
weights  and  the  tap  weights  a^  are  given  by 

k 

ak  =  (_1)  (sina>sT/4) /(k7r-hosT/4).  (19) 


k  =  0 ,  + 1 ,  .  .  .  +n 

If  the  narrowband  approximation  is  relatively  good  i.e.  if  W/fc«l 
then  a  very  small  number  of  filter  taps  will  be  required  to  give  a  very  good 
approximation  of  <t>(co)  to  -cot/2.  For  ten  to  twenty  percent  bandwidths  five 
to  seven  tap  filters  would  be  all  that  would  be  required  for  any  reasonable 
amount  of  undesired  signal  rejection. 

3.  THE  MULTIPLE  SAMPLE  APPROACH 


Let  the  bandpass  signal  s(t)  be  sampled  more  than  twice  (as  for  in- 
phase  and  quadrature  sampling)  during  each  sampling  period  T  =  1 /W  and 
let  the  intervals  between  multiple  samples  be  multiples  of  t  =  Tc/4,  i.  e. 
let  us  sample  s(t)  and  times 


mT,  mT-T,  mT+T,  mT-2T,  mT+2T,  . .  .  (20) 

where  as  before 

t  =  Tc/4  and  T  =  nTc<l/W  (21) 

and  m  and  n  are  integers. 
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From  equation  (7)  it  is  clear  that  for  the  sample  times  above  we  would 
obtain  sampled  values  of  I(t)  and  Q(t)  given  by 

I(t),  Q(t-T),  -Q(t+r),  -I(t-2r),  -I(t+2r),...  (22) 


where  mT  is  replaced  by  t. 

We  have  shown  (equation  (15))  that  if  the  first  two  samples  from  (22) 
are  used  the  recovered  signal  spectrum  R'(uj)  consists  of  the  desired  spec¬ 
trum  R(w)  multiplied  by  coswt/2  and  the  undesired  spectrum  R*(w)  multi¬ 
plied  by  sincor/2.  It  has  been  shown^*^  that  in  general  if  n+1  samples  are 
used  as  given  by  (22)  then  the  recovered  signal  spectrurr.  R'(w)  will  consist 
of  the  desired  spectrum  R(w)  multiplied  by  (coswt/2)11  and  the  undesired 
spectrum  R*(w)  multiplied  by  (sinwT/2)n,  provided  the  samples  are  com¬ 
bined  appropriately,  namely  weighted  by  the  binomial  coefficients. 

To  show  that  this  is  as  we  will  derive  the  expressions  for  R'(w)  for 
n  =  2,  3,  and  4.  From  equations  (8)  and  (9)  we  see  that 


I(w)  =  R(w)+R*(w) 


and 


jQ(w)  =  R(w)-R*(w). 

If  we  weigh  the  first  three  terms  of  expression  (22)  by  1,  j/2  and  -j/2  and 
add  we  obtain 

R'(co)  =  R(w)+R*(w)+[r(w)-R*(w)]  exp(-jwT)/2 
+  |r(w)-R#(w)J  exp(jwT)  /2 


=  R(w)(l  +coswt)+R*(w)(  1  -coswt) 


(23) 


2  2 
=  2R (w) (coswt /2)  +2R*(w) (sinwT /2)  . 


For  the  case  n=3  we  weigh  the  samples  with  the  weights  3,  j 3 ,  -j,  -1 
and  add.  Thus  we  obtain 


! 

i 

i 

4 

* 
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R'(co)exp(jur/2)  =  3  ^R(w)+R*(w)j  exp(jtor/2) 

+3^R(co)-R*(o))j exp(-jwr/2)  +  |r(oo) -R*(to)J  exp(j3wr/2) 

+  |r(w)+R5‘ (w)J  exp(-j3wr/2)  (24) 

3  q 

=  8R(cj)  (coscot /2)  +j8R*(w)(sinwT/2) J 

Similarly  for  n=4  the  weights  would  be  6,  +j4,  -j4,  -1,  and  -1.  Thus  we 
have 

R'(w)  =  6  £r(co)+R*(w)J  +4  £r(co) -R*(co)j  exp(-jwr) 

+4  |R(u)-R*(w)l  exp(jwT)  + |R(co)+R*(co) I  exp(-j2wT) 

L  J  L  J  (25) 

+  Jr(w)+R*(u)J  exp(j2ojT) 

=  l6R(o>>  (coswt/2)  i+l6R!:5(oo)(smioT/2)^. 


We  thus  see  that  by  appropriately  combining  the  various  samples  the 
filter  functions  (coswr/2)n  and  (sinuT/2)n  can  be  synthesized  to  filter  R(w) 
and  R*(w)  respectively.  By  s  lecting  other  th'.n  the  binomial  coefficients  to 
weigh  the  various  samples  other  filter  functions  can  be  synthesized.  For 
example  for  N=2  if  the  weights  are  1,  jk/2-and  -jk/2  we  can  obtain 


R'(w)  =  R(a>)  j^l+kcosooT-J  +R*(w)  £l  -kcoswr-J  . 

For  n=3  and  weights  3,  j 3 ,  -jk,  and  -k  we  obtain 

R'(co)  =  R(w)  ^8k(coswT/2)^+6(l -k)cosa)T/2j 

+jR*(w)  j^8k(sinwT/2)^+6(l  -k)sinwr/2 J 


(26) 


(27) 


Thus  we  see  that  instead  of  obtaining  an  nth  order  zero  at  the  origin 
as  would  be  the  case  for  (sinwT/2)n  one  can  obtain  n  evenly  spaced  zeros  by 
proper  choice  of  the  coefficient  k  as  in  the  case  above  or  by  proper  choice 
of  additional  coefficients  for  higher  order  n. 
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4. 


COMPARISON  BETWEEN  FILTERING  AND  MULTIPLE  SAMPLING 


As  was  shown  by  the  description  of  the  two  techniques  one  can  achieve 
very  effective  rejection  of  the  unwanted  interfering  signal  R*(oo)  by  either 
filtering  the  sampled  I  and  Q  waveforms,  or  by  a  suitable  combination  of  a 
multiplicity  of  n+1  samples.  In  any  specific  application  the  choice  which  if 
any  of  these  techniques  is  preferable  will  depend  on  the  complexity  of 
implementation.  In  general  one  will  perform  the  analog  to  digital  conversion 
either  by  a  single  device  capable  of  operating  at  a  rate  of  4fc  or  a  multiplicity 
of  devices  each  capable  of  operating  at  a  rate  fg  =  W.  The  cost  of  analog  to 
digital  converters  increases  quite  rapidly  with  increasing  sampling  rate. 
Therefore  if  the  bandpass  signal  is  a  relatively  wideband  signal  where  the 
rates  4fc  and  fs  not  significantly  different  then  a  single  analog  to  digital 
converter  would  be  preferred  and  as  many  samples  as  possible  would  be 
obtained  to  achieve  maximum  interference  rejection.  If  on  the  other  hand 
the  ratio  of  4fc  to  fs  is  large  then  it  would  be  advantageous  to  leave  two 
analog  to  digital  converters  operating  at  a  rate  fg  with  the  sampled  in-phase 
and  quadrature  signals  then  being  filtered  to  achieve  the  required  filtering. 
For  the  purposes  of  the  transceiver  presently  under  consideration  the 
receiver  IF  will  be  in  the  neighborhood  of  100  to  200  kHz  and  the  IF  signal 
bandwidths  will  be  from  4  to  25  kHz.  In  view  of  these  considerations  the 
in-phase  and  quadrature  sampling  followed  by  a  relatively  minor  pair  of 
filters  is  clearly  indicated  as  the  optimum  approach. 
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SECTION  V 


MODULATION  AND  DEMODULATION 


1.  MODULATION  AND  FREQUENCY  TRANSLATION 


As  mentioned  in  Section  II  and  in  Reference  1  the  process  of  frequency 
translation  can  be  defined  mathematically  by 


S(t)  =  Re  [w(t)ej27r£ctj 


(1) 


where  S(t)  is  the  real  I.  F.  signal,  Re  denotes  "the  real  part  of",  w(t)  is  the 
modulated  low  pass  signal  (generally  complex),  and  fc  is  the  I.  F.  carrier 
frequency.  If  we  write  w  =  u+jv  and  utilize  a  sampling  rate,  r3  =  4fc,  then 

Sn  =  Re[wn®j7rn/2]  =  Re[jnwJ  (2) 


so  that  the  transmitted  sequence,  S  ,  S.,  S,,  ...  ,  becomes 

O  1  Lt 


u 


o' 


-V 


2  *  -u  2 1  ^  3 1  u4 > 


-v 


5’ 


-U, 


r V  u8 


-vf 


By  sampling  uQ,  u^^,  Ug^,  Ujg^*  ...  in  the  real  receiver  channel  and  vj, 
v4k+l>  v8k+l’  vl6k+l»  fc^e  imaginary  receiver  channel,  we  obtain 
samples  of  u4^+jv4jic+p  which  is  an  approximation  to  as  discussed 
in  Section  IV.  By  properly  combining  a  number  of  such  samples,  better 
approximations  can  be  attained. 


For  double  sideband  amplitude  modulation, 
w(t)  =  A+m(t)  DSB-AM 


where  m(t)  is  the  real  modulating  waveform  and  A=0  in  the  suppressed 
carrier  case.  Thus 

S(t)  =  [A+m(t)J  cos27rfct  DSB-AM 

For  single  sideband  amplitude  modulation  (upper  sideband), 
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w(t)  =  A+m(t)+jm(t)  SSB-AM  (USB) 

where,  for  the  case  of  true  SSB  (rather  than  vestigial  sideband-),  m(t)  is  the 
Hilbert  transform  of  rn(t).  The  analytic  signal  f+(t)  =  f(t)+jf(t),  corres¬ 
ponding  to  any  real  signal,  f(t),  is  more  easily  visualized  in  the  frequency 
domain  as 


for  amplitude  modulation  (DSB  and  SSB)  and  by 


0(t)  =  tan 


-1  v(t). 


for  angle  modulation.  Equation  (5)  applies  to  single  sideband,  as  well  as  to 
conventional  double  sideband,  phase  and  frequency  modulation. 

If  .the  modulating  signal,  m{t),  is  m -ary  (digital  data)  AM  becomes 
amplitude  shift  keying  (ASK),  FM  becomes  frequenpy  shift  keying  (FSK), 
and  PM  becomes  phase  shift  keying  (PSK).  For  optimum  performance,  the 
(sinx)/x  spectra  of  these  digital  Signals  wpuld  be  digitally  filtered  to  produce 
a  spectrum  better  matched  to  the  channel  (e.  g. ,  a  raised  cosine  character¬ 
istic).  '  : 

i 

2„  SINGLE  SIDEBAND  AND  THE' HILBERT  TRANSFORM 


A  ideal  double -sideband  low-pass'filter 


Ho(f) 


1,  -B<f<B 
0,  elsewhere 


has  a  real  impulse  response: 


h,(£)  =  2B 


siii27rBt 

2jrBt 


An  ideal  single -sideband  low -pass  filter 


Hi(f)  =r* 0<£<B 
1  |0,  elsewhere 


can  be  thought  of  as  a  B/2  hertz  real  low-pass  filter  translated  to  the  right 
by  B/2  hertz.  Its  impulse  response  is  therefore 


h  (t)  =  2(BS-;n-Bt)eJ7rBt. 

1  7rBt 


l 
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Expanding  the  complex  exponential  as  cos+jsin,  and  carrying  out  the  multi¬ 
plication,  we  obtain 


hl(t)  =  2B  +  j  1  =  h2(t)+A(fc)-  (10) 


As  B — m-oO,  h2(t) — *-£(t)  and  h2(t)-*-l /(7rt).  Thus,  in  the  case  of  an  infinite 
bandwidth  signal,  the  real  channel  passes  the  signal  without  filtering  and  the 
imaginary  channel  performs  a  Hilbert  transform  (since  convolution  with 
l/(irt)is,  by  definition,  the  Hilbert  transform).  However,  since  we  are 
dealing  with  bandlimited  signals,  the  Hilbert  transform  is  not  required.^ 

What  is  required  is  two  digital  filters  designed  as  a  B/2  hertz  low-pass 
filter  multiplied  by  cos^Bn/r^)  and  by  sin(7rBn/rj)  respectively,  as  indicated 
by  equation  (9).  A  single  sideband  signal  must  have  a  spectrum  confined 
to  fc<f<fc+B  for  the  upper  sideband  case.  Use  of  the  Hilbert  transform 
instead  of  equation  (9)  would  filter  out  only  the  frequencies  below  the  carrier; 
thus  doing  only  half  the  job. 

If  the  desired  baseband  signal  is  confirmed  to  the  band  b<  f  <B  (e.  g. , 
300  to  3,000  hertz),  the  corresponding  complex  single  sideband  filter  is 


sin(7rBin/ri ) 

h  =  2B, — - — - =-cos(7rB?n/r,)+j2B1 

*1  1  }  rl 

where  B1  =  (B-b)/2  =  1, 350  hertz,  B2  =  (B+b)/2  =  1,  650  hertz.  Both  the 
real  and  the  imaginary  parts  of  this  filter  must  be  further  multiplied  by  an 
appropriate  window  function  as  indicated  in  Sections  III.  1  and  III.  6.  The 
real  part  of  this  impulse  response  can  be  used  for  double  sideband;  it  will 
serve  to  filter  out  the  carrier  in  receiver  operation.  For  lower  sideband 
operation  it  is  only  necessary  to  use  the  negative  of  the  imaginary  channel. 

This  scheme  is  illustrated  in  figure  19.  In  the  transmitter  the  mod¬ 
ulating  signal  is  convolved  with  h(t)  =  hR(t)+jhj(t)  to  produce  w(t).  If 
r(t)  =  r  (t)  +jr ^(t)  represents  the  low-pass  complex  output  of  the  bandpass 
sampler,  the  modulating  signal  is  recovered  as 


... 


Re  [r(t)*h(t)]  =  rR(t)*hR(t)-rI(t){'hI(t), 


(12) 


where  *  denotes  convolution. 


M  Transceiver  Configuration 


The  alternative  method  of  using  a  single  filter  response  for  single 
sideband  and  multiplying  the  signal  by  cosine  and  sir:e,  as  illustrated  in 
figure  8  of  Section  I.  2,  is  equivalent  if  and  only  if  the  delay  through  the 
actual  filter  corresponds  to  an  interger  number  of  c"cles  of  the  multiplying 
sinousoids.  Otherwise  the  phase  would  not  be  strictly  linear,  suffering  a 
discontinuity  of  27rB2M/r ^  at  zero  frequency.  If  the  method  of  Section  I.  2 
is  used  M  would  be  a  multiple  of  5  and  would  be  1.6KHz  if  r^  =  8KHz. 
(Or  B2  =  1. 65  and  r  j  =  8.  25). 

3.  ZERO-QUADRATURE  SAMPLING  FOR  DOUBLE  SIDEBAND 


The  double -sideband  receiver  configurations  in  figure  lb  and  19b  show 
a  phase  adjustment  feedback  loop  which  attempts  to  drive  the  imaginary  (or 
quadrature)  samples  to  zero.  Fur  coherent  reception  (carrier  phase  know 
at  the  receiver)  there  is  no  need  for  such  a  loop.  For  non-coherent  reception 
alternative  schemes  would  be  (1)  to  process  both  the  real  and  the  imaginary 
channels  through  the  double  sideband  filter  (no  B/2  frequency  shift)  and  use  a 
read  only  memory  to  take  the  square  root  of  the  sum  of  the  squares  and  (2) 
to  employ  stationary  point  sampling  (20,  21). 

Suppose  the  received  signal  (real  channel)  is 


z(t)  =  Asin(27rft+0)+n(t) 


(13) 


where  A  is  to  be  estimated  and  n(t)  is  a  stationary,  zero-mean,  Gaussian 
process  with  variance  .  If  the  frequency  and  phase  (f  and  0)  were  known 
exactly,  coherent  sampling  would  produce  samples  of 


a  =  A+n(t) 


(14) 


with  probability  density 


P(a)  =  <j)(a~A) 


2 

-(a-A) 

6  Tar 


(15) 


If  f  is  known,  but  not  0,  a  quadrature  zeroing  phase  adjustment  loop  can 
come  very  close  to  attaining  the  same  result. 

If  z(t)  were  sampled  with  random  phase  the  probability  density 
becomes 
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The  measurement  is  random  even  in  the*  complete  absence  of  noise  (  0" -  0). 
The  square  root  of  the  sum  of  the  squares  procedure  is  equivalent  to 
envelope  detection  and  produces  the  modified  Rayliegh  (or  Rice)  density 
Stationary  point  sampling  leads  to  the  modified -Normal  (or  Harley-Abend) 
density^®'  ^1).  For  large  signal  to  noise  ratios  (S/N  =  A^/2Cf  ’)  both  of 
these  approaches  the  choerent  result  of  equation  (15). 

4.  ANGLE  MODULATION  AND  PREEMPHASIS 

For  angle  modulation  the  switch  in  figure  19a  would  be  in  the  DSB 
position  and  the  modulator  of  figure  20  would  be  inserted  between  the  real 
channel  interpolator  and  the  frequency  translator.  The  modulation  index,  13, 
is  set  equal  to  unity  for  narrowband  FM.  This  produces  a  complex  signal 
with  a  non-symmetrical  spectrum  occupying  a  14  KHz  band  from  -7  KHz  to 
+7KHz.  The  modulator  operates  at  the  r^  sampling  rate. 

In  the  computer  simulations  angle  modulation  was  performed  at  the 
r^  sampling  rate  and  the  interpolation  to  r-j  was  performed  after  the  cosine- 
sine  read -only -memory.  This  had  two  drawbacks.  At  the  lower  sampling 
rate  the  z -plane  integrator  was  a  poor  approximation  to  true  integration 
and  the  interpolation  filters  were  required  to  operate  on  2B  =  14  KHz 
signals.  This  was  corrected  for  the  breadboard  as  shown  in  figure  11a  of 
Section  II.  3. 

F.  M.  preemphasis  and  deemphasis  circuits  are  shown  in  figures  20b 
and  c.  To  prevent  distortion  of  the  demodulated  signal,  preemphasis  must 
be  performed  before  angle  modulation,  deemphasis  must  be  performed  after 
angle  demodulation,  and  both  must  be  performed  at  the  same  sampling  rate. 

A  value  of  7/8  for  the  preemphasis  parameter  would  closely  approximate 
current  analog  receiver  practice. 

F.  M.  preemphasis  will  be  performed  at  the  sampling  rate,  between 
the  resampling  filter  and  the  interpolator.  If  performed  at  the  low  sampling 
rate,  rj,  its  frequency  response  would  not  be  sufficiently  linear  at  the 
high  frequencies.  If  performed  at  the  high  sampling  rate,  r^,  we  would 
have  difficulty  in  undoing  its  effect  at  the  receiver.  With  it  at  the 
deemphasis  circuit  (also  at  r~)  will  exactly  cancel  its  effect  on  the  demod¬ 
ulated  signal,  assuming  that  demodulation  is  performed  before  deemphasis. 
This  last  requirement  is  no  problem  because  angle  demodulation  must  be 
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!  ,  « 

performed  at  r£.  An  rj  =  8KHz  sampling  rate  could  not  handle  a  14KHz 

signal.  Furthermore,  the  differentiation  required  for  F.  M.  demodulation 
is  more  easily  performed  at  a  higher  rate  fin  fact,  it  can  be  performed 
by  figure  20b  with  oC  =  l  if  the  sampling  rate  were  high  enough). 

I  ’  . 

5.  PHASE  AND  FREQUENCY  DEMODULATION  ' 

i  i  ,  !  .  •  i  . 

If  the  received  low -pass  complex  signal  is 

I  !  '' 

,  I 

w(t)  =  u(t)+jv(t)  =  A(t)eje(t)  '  (17) 

i  1 

then  to  demodulate  phase  modulatidn  we, must  recover 

,  '  0(t)  =  Im[lnw(t)j  =  tan"^  (PM).  i 

f 

.  } 

I  ! 

To  demodulate  frequency  modulation  we 'must  recover 

'  1  i  1  ’ 

'  d9(t)  _•  -  U(t)V(t);  —  V(t)u(t)  '  (TTAyf). 

dt  [w(t)J  uZ(t)+v2(t) 

I  I 

One  approach  to  angle1  demodulation  is  to  frequency  demodulate  as  shown  in 
figure’ 21  and  digitally  integrate  the  -  when  operating  with  phase 

modulation.  A  second  alternative' i  s  ;o  perform  arc  tangent  phase  demod- 
ulatiqn  as  shown  in  figure  lib  of  Section  II.  3,  and  to  differentiate  the 
result  when  operating  with  frequency  modulation.  With  this  second  alternative 
deemphasis,  can  be  performed  at  the  r^  sampling  rate  at  the  input  to  the 
differentiator.  i 

I 

1  The  first  alternative  was  used  in  the  computer  simulation  and  the 
second  alternative  was  used  in,  the  breadboard.  Figqre  21  does  not  show  the 
resampling.  ,In  the  simulations,  resampling  filters  preceeded  the  differ¬ 
entiators  and  all  computations  in  figure  21  werb  performed  at  the  low  rj 
sampling  rate.  This  forced  us  to  use  a  higher  basis  sampling  rate  (r^  = 
15KHz)  in  the  simulations  which  increased  the  complexity  of  all  filters  and 
degraded  the  performance  of  FM.  Since  differentiation  and  integration  are 
more  easily  approximated  at  a  high  sampling  rate,  and  since  preemphasis 
in  the  transmitter  was  performed  at  r-,,  a  better  procedure  would  have  been 
to  operate  at  r ^  and  resample  after  deemphasis. 
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Deriative-Measurement  Technique  for  Angle  Demodulation 


In  the  FM  mode,  figure  lib  utilizes  a  non-recursive  low-pass  differ¬ 
entiator,  approximating 


H(£>  ■  {j2ori;  E'S. 


to  filter  out  any  energy  that  might  interfere  with  the  r^  spectral  repeats. 
An  alternative  (utilized  in  the  breadboard)  is  to  use  a  simple  z-plane 
differentiator  followed  by  our  standard  resampling  filter. 
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SECTION  VI 


TRANSCEIVER  DESIGN  AND  IMPLEMENTATION 


This  section  contains  various  details  revelent  to  the  overall  system 
design  (Section  II),  the  computer  simulations  (Section  VII),  and  the  trans¬ 
ceiver  breadboard  (Section  VIII),  that  were  not  covered  elsewhere. 

1.  RECURSIVE  FILTERING 

The  applicability  of  recursive  filters  was  investigated  in  the  form  of 
an  eighth  order  (eight  poles  and  eight  zeros)  Cauer  Parameter  type  C 
filter.  The  poles  and  zeros  of  this  filter  were  chosen  to  produce  approxi¬ 
mately  60  db  (57.  82db)  attenuation  in  the  stopband  and  10  percent  ripple  in 
the  passband  with  a  20  percent  transaction  band.  The  pole -zero  locations 
were  obtained  from  standard  filter  design  handbooks'^3'  and  their  actual 
values  in  the  s -plane  are  given  in  figure  22.  In  transforming  from  the  s -plane 
to  the  z -plane  the  bilinear  transformation  was  used  where 


z 


1  +s 
1-s 


and  where  the  values  of  s  were  normalized  by  multiplying  by  tan7rfc  where 
fc=0.  1  i.  e.  ,  a  cut-off  frequency  of  1/1 0th  the  sampling  rate  was  used.  A 
digital  implementation  of  the  filter  shown  in  figure  22  was  simulated  on  the 
computer.  It  was  found  that  the  filter  constants  (A^,  B.,  C^)  could  be 
reduced  to  8 -bit  accuracy  without  significantly  altering  the  filter  character¬ 
istics.  In  the  passband  the  ripple  was  less  than  0.5db  and  in  the  stopband 
the  attenuation  was  in  excess  of  42db.  All  shift  register  contents  were 
maintained  to  20 -bit  accuracy  and  all  shift  register  contents  were  rounded- 
off  to  12-bits  before  entering  the  multipliers.  The  frequency  characteristics 
of  the  recursive  filter  were  obtained  by  performing  a  Fast  Fourier  Trans¬ 
form  (FFT)  of  the  impulse  response.  Figure  23  is  a  plot  of  the  frequency 
response  of  this  filter  and  figure  24  is  a  brief  computer  printout  of  the 
magnitude  and  phase  response  (the  first  and  second  data  columns).  The 
third  and  fourth  columns  show  the  magnitude  in  db  and  the  normalized 
frequency  (normalized  to  unity  at  the  cutoff  frequency). 

From  the  example  presented  it  is  clearly  seen  that  extremely  stringent 
filter  characteristics  can  be  realized  with  digital  recursive  filters  employ¬ 
ing  a  relatively  small  number  of  shift  registers  (storage)  and  arithmetic 
operations  (especially  multiplications)  per  unit  sampling  time.  The  main 
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Figure  22:  Caver  Parameter  Recursive  Filter 


hASNirt/OE  PHASE 

m<r.(t>a) 

PEL.  FAEQ. 

1 

31 .0978 

0.000 

0.000 

0.000 

2 

30.5559 

-7.998 

-0.153 

0.039 

3 

31*2301 

-17.515 

0.037 

0.078 

4 

30.9331 

-27.790 

-0.046 

0.117 

5 

31.4030 

-36.861 

0.085 

0.156 

6 

31.3263 

-46.008 

0.064 

0.195 

7 

31.1741 

-54.850 

0.021 

0.234 

S 

31.3141 

-64.839 

0.060 

0.273 

9 

31.5860 

-74.952 

0.135 

0.313 

10 

32.6866 

-85.283 

0.433 

0.352 

11 

31.7208 

-96.638 

0.172 

0.391 

12 

31 *9420 

-106.024 

0.233 

0.430 

13 

31 .9560 

-118.300 

0.236 

0.469 

14 

32.3525 

-129.491 

0.344 

0.508 

15 

32.4445 

-141.664 

0.368 

0.547 

16 

32.5667 

-154.171 

0.401 

0.586 

17 

32.1814 

-168.468 

0.298 

0.625 

18 

32.2536 

177.597 

0.317 

0.664 

19 

31.9402 

163.219 

0.232 

0.703 

20 

32.1787 

146.765 

0.297 

0.742 

21 

31.5674 

129.395 

0.130 

0.781 

22 

31.6212 

110.289 

0.145 

0.820 

23 

31.7581 

89.268 

0.182 

0.859 

24 

31 .2529 

63.873 

0.043 

0.898 

25 

31.4117 

33.713 

0.087 

0.938 

26 

31.2508 

-6.890 

0.043 

0.977 

27 

28.5363 

-68.259 

-0.747 

1*016 

28 

10.9751 

-133.115 

-9.046 

1.055 

29 

2.8668 

-172.871 

-20.707 

1  .094 

30 

0.7253 

146.830 

-32.644 

1.133 

31 

0.1121 

176.226 

-48.860 

1.172 

32 

0.0298 

5.036 

-60.381 

1.211 

33 

0.2289 

-13.497 

-42.661 

1.250 

34 

0.0697 

17.711 

-52.985 

1.289 

35 

0.0586 

-28.111 

-54.490 

1.328 

36 

0.0793 

-59.611 

-51  .872 

1.367 

37 

0.1102 

91.122 

-49.008 

1 .406 

38 

0.0694 

107.007 

-53.034 

1*445 

39 

0*1062 

70.319 

-49.334 

1.484 

40 

0.1225 

53.984 

-48.092 

1.523 

END  RCRFLT  15.5  SEC. 
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Figure  24: 


Recursive  Filter  Computer  Printout 
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disadvantages  of  recursive  filters,  however,  are  (a)  somewhat  highesr  bit 
accuracy  is  required  in  the  arithmetic  operations  is  compared  to  non¬ 
recursive  filters,  (b)  significantly  higher  bit  accuracy  is  required  in  the 
storage  shift  registers,  (c)  the  phase  characteristic  is  extremely  non-linear, 
near  the  cutoff  region  unlike  the  zero  differential  phase  delay  character-, 
istics  of  non-recursive  filters,  and  (d)  the  sequence  of  arithmetic  operations 
to  be  performed  is  such  that  implementation  of  recursive  digital  filters 
does  not  readily  lend  itself  to  the  pipeline  processing  technique.  Because 
of  these  disadvantages  it  was  concluded  that  recursive  digital  filters  would 
not  be  appropriate  for  the  multimode  transceiver  design. 

Rabiner,  et,  al  ’  ’  '  have  presented  an  interesting  rec.ursive 

implementation  for  finite  response  filters  that  have  been  designed  by  the 
frequency  sample  specification  approach.  These  filters  require  more 
storage  than,  and  approximately  as  many  multiplications  as,  the  convolu¬ 
tional  (non-recursive)  implementation.  They  have1  all  the  disadvantages  of  1 
standard  recursive  filters  except  (c). 


To  clarify  the  accuracy  problem,  consider  a  simple  recursive  filter 
such  as  in  figure  20c  of  Section  V.4.  If  the  input  and  the  stored  constant, 
Ci,  are  each  10  bits,  the  result  of  multiplying  the  two  requires  20  bits  of 
storage.  If  no  truncation  or  rounding  is  used,  a  30  bit  number,  is  required 
for  the  next  time  around  the  loop.  And  this  would  continue  indefinitely.  If 
we  assume  we  use  a  10  bit  by  10  bit  multiplier,  we  must  round  to  ten  bits 
each  time  around  the  loop.  A  convolutional  filter  (such  as  shown  in  figure 
2  of  Section  II.  1),  however,  need  never  roun,d  as  long  as  the  accumulator 
can  hold  a  20  bit  number. 

i 

Recursive  implementation  was  used  for  the  interpolation  filters 
because  they  could  be  realized  without  multiplications. 


2. 


NON -RECURSIVE  FILTERING 


The  interactive  computer  program  discussed  in  Section  III.  6  was 
used  to  compute  the  quantized  values  of  the  tap  weights  for  all  convolutional 
filters  used  in  the  simulations  and  the  breadboard.  CONFIDE  is  a  time- 
shared  Fortran  program  for  the  design  and  frequency  analysis  of  finite 
response  filters  with  zero  differential  delay  (absolutely  linear  phase).  A 
simplified  flow  chart  is  given  in  figure  25  and  the  program  itself  is  given  in 
figure  26.  The  operator  first  enters  C,  L,  and  A,  where  C  is  the  window 
parameter,  L  is  the  number  of  bits  precision  for  the  tap  weights,  abd 
A=  d  is  the  raised  cosine  roll-off  parameter  (A=0  for  no  roll-off).  The  tap 
weights  are  normalized  to  a  maximum  value  of  c0  =  2^”^-l  and  rounded  to 
the  nearest  integer.  Thus,  L=10  represents  tap  weighs  ranging  from  -511 
to  +511  (or  +  -i-L  in  steps  of  E  =  _  j  ^  ).  While  the  Hamming  window  (C  =  .  54) 
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Figure  25:  Simplified  Flowchart  of  Convolutional  Filter  Design  Program  (CONFIDE) 

(Oval  blocks  represent  Teletype  inputs) 
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100  C-  (2**N0>PT •  FFT  OF  A  C2M+1>STAGE  L  BIT  CONVOLUTIONAL  FILTER 
200  C- 

300  C-  WINDOWS- 

400  C-  HAMMING:  C**54 

500  C-  HANNING!  Ca.5 

600  C-  G4R  HAM!  C-.56 

700  C-  A  a  RAISED  COSINE  ROLL-OFF 

750  C-  FC*0  FOR  DIFFERENTIATION 

800  C- 

900  DIMENSION  G(512) 

1000  INTEGER  H(512)«S«SUM 
1100  COMPLEX  X(2»2048)«W 
1200  PI«3. 14159265 
1300  75  PRINT  15 

1400  15  FORMAT  C"C#L#A"> 

1500  READ  /*C*L»A 
1600  IF  (C*0 )  GO  TO  44 
1700  S»2**(L-1>-1 

1800  PRINT  12  <S> 

1900  12  FORMAT  <"  MAXIMUM  TAP  «M7) 

2000  60  PRINT  16 

2100  16  FORMAT  <"FS*FC*M"> 

2200  READ  />FS>FC*M 

2300  IF  <FS«0>  GO  TO  75 

2400  G0=2*FC/FS 

2450  IF  <FC«0>  G0«FS/(2*PI) 

2500  R»S/G0 

2  520  SUM  a  S 

2530  P*G0*G0 

2560  IF<FC»0>  P=0 

2600  DO  30  I>=1  >m 

2650  PII  »  PI*I 

2700  O-C+U  .-C)*COS(PII/M) 

2710  IF<FC«0)  GO  TO  28 
2720  E  «  A*G0*I 

2730  IF  (E.NE.0.5)  V  «  COS<PI*E>/< 1 .  -4*E**2> 

2735  IF  (E-0.5)  V*PI/4. 

2740  Q  a  Q*V 

2800  G<I>aQ*siN<G0*PII)/(PH) 

2  820  GO  TO  29 

2840  28  G0a*G0 

2860  G<I)aQ*G0/I 

2880  29  CONTINUE 

2900  IF  (  3U>.GE.0>H<I>»R*G<I>  +  .5 

3000  IF  (G( I >  »LT»0 >  H<I/aR*G<I>-.5 

3100  G<I)aH(I)/R 

3120  SUM  a  SUM  +  2*H< I ) 

3140  P"P+2  •*G(I)*G(I> 


Figure  26:  Convolutional  Filter  Design  (CONFIDE)  Fortran  Program 
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3200  30  CONTINUE 

3300  PRINT  70  <H<I)*I*1>M> 

3310  SSO*P/<G0*G0  > 

3320  SRS*SQRT<SSG> 

3330  IF<FC*0 )  SUM=0 

3340  PRINT  36  <SUM>SSQ*SRS > 

3360  36  FORMAT  <"SUM='M7>"  SSO**’  >F8»3*M  SRS="*F8.3> 

3400  85  PRINT  84 

3500  84  FORMAT  C'W) 

3600  READ  />N0 

3700  IF  <N0=0>  GO  TO  60 

3  800  N»2**N0 

3900  M1=2*M+1 

4000  PRINT  40  <N*M1/L> 

4030  AA*1 

4060  IF<FC*=0  )  AA=-1 
4100  X( 1 > 1 )«CMPLX<G0>0.) 

4150  IF  <FC=0>  XC 1*1 )=CMPLX(0.>0.) 

4200  DO  17  1=1 >M 

4300  X<1>I+1 >=CMPLXCG<I>*0«> 

4400  17  X<liN-I+l )*AA*CMPLX<G<I )*0. > 

4500  NM=N-M-2 

4600  DO  2  I=M*NM 

4700  2  X(l»I+2)=(0.»0.) 

4800  N2=N/2 

4900  P2=2.*PI/N 

5000  DO  5  J=1*N0 
5100  N2 J«N/<2** J> 

5200  NK-N2J 
5300  NI=<2**J>/2 
5400  DO  4  I»1*NI 
5500  IN2J  *  <I-1>*N2J 

5600  T“IN2J*P2*<-1 • ) 

5700  W«CMPLX<COSCT)^SIN<T>) 

5800  DO  4  K=1*NK 

5900  ISUB  -  K+IN2J 

6000  ISUB1  =  K+IN2 J*2 

6100  ISUB2  =  ISUB1+N2J 

6200  ISUB3  *  ISUB  +  N2 

6300  X<2* ISUB)=X( 1 »  ISUB1 )+W*X< 1  * ISUB2 ) 

6400  X(2* ISUB3 )=X< 1 • ISUB 1 )~V*X< 1  * ISUB2 > 

6500  4C0NTINUE 
6600  DO  5  K=1#N 
6700  5Xn*K)*X<2*K) 

6800  80  PRINT  35 

6900  35  FORMAT  ("FMIN/FMAX" > 

7000  READ  /*FMIN*FMAX 
7100  IF  <FMAX«0>  GO  TO  85 


Figure  26  (Continued) 
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7800  KM1N  *N*FMIN/FS+1 
7300  KMAX  »N*FMAX/FS+2 
7350  SS=0 

7400  DO  6  K  *  KMIN>KMAX 
7500  Y*CABS<XC1*K>> 

7600  Z*=REAL  <  X<  1  >  K  >  > 

7700  D  «  20 • *ALOG10 <Y> 

7800  F»FS*CK-1)/N 
7850  IF  <FC=0>  60  TO  92 
7900  PRINT  20  CK*Z*D*F> 

7920  GO  TO  6 

7940  92  U«AIMAGCXC1*K>) 

7945  B*0 

7950  IFCF.GT.0)  B=CU-F)/F 
7960  SS=SS+<U-F)*CU-F> 

7970  AMS*SS/<K-KMIN+1 ) 

7980  PRINT  22  <K>F*U*B»AMS> 

8000  6  CONTINUE 

8100  GO  TO  80 

8200  40  FORMAT  CI4>"  POINT  TRANSFORM  OF  M3*"  STAGE  "*I3>"  BITW 

\\  FILTER"/) 

3300  20  FORMAT  <I3>F12«4*F13*3#F10«3) 

8350  22  FORMAT  <I3*3F12«3*F15*6> 

8400  70  FORMAT  Cl 017) 

8500  44  STOP 

8600  END 


Figure  26  (Concluded) 
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is  superior  for  high  precision  applications,  for  L<10  the  Hanning  window 
(C  =  .5)  was  found  to  aid  in  the  natural  truncation  phenomenon  discussed  in 
Section  III.  6.  While  a  filter  with  8  bit  precision  was  able  to  meet  the  specs 
of  at  least  40db  attenuation  in  the  stopband  with  a  transition  band  of  only 
300  hertz,  20  bit  precision  was  chosen  for  the  tap  weights  to  provide  a 
safety  margin  for  the  additional  transceiver  processing  that  must  be  per¬ 
formed. 

The  next  inputs  are  FS,  FC,  and  M,  where  FS=r  is  the  sampling  rate 
and  FC  is  the  6db  cut-off  frequency  for  the  version  of  the  filter  symmtrical 
about  zero  frequency,  (i.  e. ,  FC  US- 1.  5KHz  for  3KHz  single  sideband).  If 
FC=0,  the  tap  weights  for  a  differentiating  filter  are  calculated.  The  M 
filter  tap  weights  (Cp  C . .  . ,  Cj^  in  Section  III)  are  computed  and  printed 
ten  per  line.  The  number  of  nonzero  taps  will  generally  be  less  than  2M+1. 
The  next  input,  N0=nQ,  determines  that  a  2n°  point  Fast  Fourier  Transform 
of  the  filter's  unit  response  will  be  taken.  The  inputs  FMIN  and  FMAX 
specify  the  range  of  frequencies  to  be  printed  out.  From  figure  25  we  see 
that  the  operator  can  examine  any  portion  of  the  frequency  response  in  any 
detail  desired  (up  to  a  2048  point  transform)  before  modifying  the  filter. 

The  computer  simulations  (Section  VII)  employed  a  basic  sampling 
rate  of  r p- 1 5KHz  because  at  the  time  they  were  performed  we  believed  it 
would  be  more  efficient  to  do  frequency  modulation  at  the  low  rate.  The 
resampled  rate  for  the  simulations,  r2=120KHz,  was  also  unnecesarily  high. 
The  earlier  version  of  CONFIDE  used  to  design  the  simulation  filters  did 
not  have  provision  for  the  raised  cosine  roll-off.  These  deficiencies  com¬ 
bined  to  make  the  filters  have  at  least  twice  the  number  of  taps  that  they 
would  have  required  at  a  more  reasonable  sampling  rate.  Sample  printouts 
are  given  in  figures  27  through  30.  The  specs  on  the  SSB  filter  required  a 
drop  from  -3db  to  -40db  in  300  hertz.  The  frequency  response  in  figure  31 
shows  that  these  specifications  are  met.  The  differentiating  filter  in 
figure  30  is  highly  inefficient  in  that  it  fails  to  take  advantage  of  a  recent 
"breakthrough"  discussed  in  Section  \  I.  3. 

Since  ripple  tends  to  accumulate  from  the  cascade  of  all  transmitter 
and  receiver  filters,  the  specs  on  the  SSB  filter  were  revised  for  the  bread¬ 
board  to  call  for  a  drop  from  ldb  to  50db  in  450  hertz.  The  corresponding 
frequency  response  and  CONFIDE  printouts,  for  a  8KHz  sampling  rate,  is 
given  in  figures  32  and  33.  A  two-to-one  resampling  filter  used  for  the 
breadboard  demonstration  is  shown  in  figure  34. 

To  produce  a  double  sideband  filter  characteristic  with  a  passband  from 
300  to  3,  000  hf  rtz  as  mentioned  in  Section  V.  2,  the  CONFIDE  program  of 
figure  26  was  modified  by  adding  two  instructions: 
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Figure  27:  Single  Sideband  Filter,  r  =  15KHz 
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Figure  27  (Continued) 
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Figure  23;  Double  Sideband  Filter,  r  =  15KHs 
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Figure  29:  8  to  1  Resampling  Filter,  r  =  120  KHz 
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Figure  30:  Differentiating  Filter,  r  =  15KHz 
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Figure  30  (Continued) 
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Figure  33:  Single  Sideband  Filter,  V  =  8KHz 
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2750  Q  =  Q*cos(3.  3*PII/FS) 

7550  Y  =  2.*Y. 

The  corresponding  printout  (at  a  l6KHz  sampling  rate)  is  shown  in  figure  35. 
3.  DIGITAL  DIFFERENTIATION 


In  Reference  1,  the  digital  Hilbert  transform  was  derived  from  the 
sampling  theorem, 


x(t)  = 


sin(7,  rt-k.Tr) 
k  (7rrt-kn-) 


co  , 

Z 


sin7rrt 
7r(rt  -k) 


(1) 


by  taking  the  Hilbert  transform  of  (1)  and  sampling  the  result  at  the  rate 
r;  xn  -  x(n/r).  The  result  was 


A  2  y  xn 

Xn  7T,  k  ,  k  odd. 


(2) 


Similarly,  we  can  differentiate  (1), 


x(t) 


(-1)  xkr 


cos7rrt 

rt-k 


simrrt 

rr(rt-k)2 


r  * 


(3) 


and,  by  sampling  this  result  at  the  rate  r,  we  obtain  the  digital  derivative 


x  -  x(n/r) 
n 


co 

r  Z 

k  -  oo 
k/n 


(-1) 


n-k  3s_ 
n-k  ' 


(4) 


The  preceeding  results  could  also  have  been  obtained  by  deriving  the 
appropriate  filter  frequency  response,  H(f),  and  finding  the  corresponding 
unit  response 
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Figure  35:  Double  Sideband  Filter,  r  -  16KHz 


L 


-48 

-18 

-3 

2 

1 

0 


'  >3 
*5 

i2 

•1 

0 


-46 

-29 

-12 

-3 

0 

0 


-86- 


22 

0*5002 

0.004 

2*625 

23 

0*5008 

0*014 

2*750 

24 

0*5017 

0*030 

2*875 

*  r* 

45  O 

0*4158 

-1*602 

3*000 

26 

0*2020 

-7*873 

3*125 

27 

0*0326 

-23*728 

3*250 

28 

-0*0042 

-41*566 

3*375 

29 

0*0007 

-57*526 

3*500 

30 

0*0012 

-52*740 

3*625 

31 

0*0010 

-54.099 

3*750 

32 

0*0002 

-66*546 

3*875 

33 

-0*0011 

-53*440 

4*000 

34 

0*0011 

-52*831 

4*125 

FM1N#FMAX 

74#  8 

33 

-0*0011 

-53*440 

4*000 

34 

0*0011 

-52*831 

4*125 

35 

0*0012 

-52*469 

4*250 

36 

-0*0013 

-51*912 

4*375 

37 

0*0020 

-47*759 

4*500 

38 

0  *0000 

-83*942 

4*625 

39 

-0*0012 

-52*186 

4*750 

40 

0*0009 

-55*039 

4*875 

41 

-0*0014 

-51*233 

5*000 

42 

-0*0007 

-56*666 

5*125 

43 

— 0  *0000 

-8r*310 

5*250 

44 

0*0008 

-55*991 

5.375 

45 

0  *0009 

-54*975 

5*500 

46 

0*0007 

-56*778 

5*625 

47 

0*0021 

-47*717 

5*750 

48 

-0*0001 

-73*318 

5*875 

49 

-0*0015 

-50*712 

6*000 

50 

-0*0009 

-54.846 

6*125 

Figure  35  (Continued) 
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H(f)  =  j  sgn  f 


(5) 

(6) 


we  obtain 
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n  ) 
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7T  n 
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n  odd 
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V. 


for  the  Hilbert  transforming  filter.  If 


(7) 


H(f)  =  j2rrf 


(8) 


we  obtain 


h 
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(-D 

n  ’ 


n  i  0 


n  =  0 


(9) 


for  the  differentiating  filter.  Equation  (9)  was  used  with  a  Hanning  window 
for  differentiation  in  the  CONFIDE  program.  Note  that  equation  (4)  can 
also  be  written 


# 

x 

n 


xn-k 

k 


(10) 


(25) 

Rabiner  and  Steiglitz  have  pointed  out  that  the  above  is  not  the 
thing  to  uo.  They  note  that  the  magnitude  and  phase  response  corresponding 
to  equation  (8)  is  hard  to  realize  digitally  because  of  the  phase  discontinuity 
shown  in  figure  36c.  By  introducing  a  half-sample  delay, 


Hj  (f)  -  j2 n-f  e-j,rf/\ 


(ID 
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Figure  36;  Frequency  Response  of  an  Ideal  Wideband  Differentiator 
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the  phase  response  of  figure  36d  is  obtained,  whereby  the  phase  discontinu¬ 
ities  occur  only  at  frequencies  at  which  [ H(f ) j  =  0. 

From  equation  (3)  using  t  =  (n-  1/2) /r  instead  of  t  =  n/r,  we  obtain 


co 
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or 


Xn=;  S  M> 


00 


k  xn-k  4r 


£0 


E  (-D 


k  =  -o 


(k  -  ^-)  k  =  -co 


k  Xn-k 
(2k- 1)*1 


(13) 


Alternatively  we  could  obtain 


h  =ll  LiJl2 

n  77  (2n-lf 


(14) 


from  equations  (5)  ond  (11).  Equations  (9)  and  (14)  are  compared  in  figure 
37,  for  r  =  1.  Equation  (14)  is  seen  to  decay  quadradically  and  to  more 
closely  approximate  a  simple  (x^  -  x^  )*r  "differentiator".  The  unit 
response  has  to  be  truncated  to  finite  duration.  Rabiner  and  SfceigliL?/^) 
present  excellent  results  for  the  frequency  sample  specification  method. 
However,  any  of  the  methods  of  Section  III  may  be  used. 

Another  way  of  viewing  these  results  is  as  follows.  A  filter  with 
impulse  response 


sin7rrt 

7rrt 


(15) 


would  pass  a  signal  bandlimited  to  -r/2<f<r/2,  undistorted.  The  impulse 
response  of  the  corresponding  differentiator  is  given  by  the  derivative  of 
(15): 


h(t)  = 


cos7rrt  - 


sin7rrti 
7rrt  I 


(16) 
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G>h^h(”) 
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Figure 


37:  Unit  Response  of  Two  Wideband  Differentiators 


Equation  ^  1 5 )  can  be  thought  of  as  a  bandlimited  inpulse  J(t),  and  (16)  as  a 
bandlimited  doublet,  <?(t).  The  unit  response  of  a  digital  differentiator  is 
obtained  t)y  sampling  (16)  at  the  rate  r.  The  usual  wideband  differentiator 
(5,  ,11,  ,27)^  as  one  usecj  in  our  simulations,  samples  (16)  at 

the  zeros  of  the  sine  term.  Obviously,  a  shorter  response  is  obtained  by 
sampling  at  the  zeros  of  the  cosine.  In  fact,  the  latter  approach  indicates 
that  the  simple  -minded  two-term  differentiator,  such  as  the  one  used  in 
our  breadboard,  is  a  reasonable  first  approximation. 


SECTION  VII 


COMPUTER  SIMULATION 


Simulations  were  made  for  three  modulation  schemes.  Single  side¬ 
band  (SSB),  double  sideband  (DSB),  and  frequency  modulation  (FM).  The 
simulations  were  initially  programed  on  the  Burroughs  5500  time  share 
system.  The  working  programs  were  then  transfered  to  the  Philco  212 
computer  system  located  at  Willow  Grove.  Signal  to  noise  runs  were  made 
on  the  Philco  212. 

The  calculations  of  the  tap  weights  for  the  convolutional  filters  were 
performed  on  the  Burroughs  5500  time  share  system.  The  program  CONFIDE 
calculated  the  tap  weights  to  the  desired  bit  accuracy  and  then  performed  a 
Fourier  Transform  on  the  weights.  The  results  of  the  Fourier  Transform 
were  printed  oul  in  order  that  the  frequency  selective  properties  of  the 
filter  could  be  checked. 

The  various  modulation  system  simulations  were  carried  out  on  a 
low  pass  equivalent  basis  for  the  DSB,  SSB,  and  FM  systems.  All  filtering 
was  done  with  convolutional  digital  filters  with  complex  signals  where 
appropriate.  The  basic  sampling  rate  for  input  and  output  of  all  simulations 
was  15KHz.  This  sampling  rate  was  thought  to  be  a  compromise  between 
the  sampling  rate  needed  for  DSB  and  SSB  and  the  rate  needed  for  FM. 

Based  on  the  results  of  these  initial  simulations  an  effective  sampling  rate 
for  input  and  output  of  8KHz  was  chosen  for  the  breadboard. 

The  SSB  and  DSB  systems  were  tested  by  passing  a  pulse  derived 
from  a  4KHz  50  o/o  raised  cosine  spectrum  through  the  system.  The 
spectrum  of  the  test  pulse  is  shown  in  figure  16b  of  Section  III.  6  (B  -  4KHz). 
This  pulse  had  eleven  (11)  non-zero  terms  in  it  after  rounding  to  7  bit 
precision.  The  reason  for  using  the  above  mentioned  pulse  was  to  simulate 
the  inherent  filtering  a  real  input  to  the  systems  would  experience.  Through¬ 
out  the  simulations  the  real  channel  data  stream  is  designated  as  XR  and 
the  imaginary  channel  data  stream  as  Xl_.  Whenever  possible  the  output 
of  both  real  and  imaginary  channels  wen  saved  as  an  aid  to  checking  the 
output  of  the  filters  as  the  signal  progressed  through  the  system.  The 
simulations  can  best  be  understood  1  ,  relating  the  programs  for  the  various 
simulations  to  their  block  diagrams  (figures  38,  o->  and  40).  All  of  ‘he 
programs  are  documented  with  comment  cards  and  should  be  reasonably 
easy  to  understand  by  anyone  with  a  good  working  knowledge  oi  Fortran  and 
some  background  m  digital  communicativi  system  design. 

The  noise  added  to  the  input  to  the  receiver  was  derived  from  a 
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Figure  39:  DSB  System  Simulation 
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Figure  40:  FM  and  PM  System  Simulation 
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gaussian  random  number  generator  and  the  specific  noise  power  at  that 
point  was  calculated.  The  noise  was  added  at  a  level  to  compensate  for  che 
bandwidth  of  the  receiver.  Signal-to -noise  curves  were  run  for  the  DSB  and 
SSB  cases  and  plotted  in  figures  41  and  42.  The  method  used  to  calculate  the 
signal-to-noise  ratio  out  of  the  receiver  was  that  the  spectrum  of  the  output 
wave  form  with  no  noise  (-100dB)  added  to  the  input  to  the  receiver  was 
calculated.  The  difference  between  this  spectrum  and  the  output  spectrum 
with  noise  added  to  the  receiver  was  calculated  using  the  no  noise  spectrum 
as  a  reference.  Also  the  distortion  of  the  spectrum  of  the  signal  from  the 
input  of  the  systems  to  the  output  were  calculated  to  obtain  a  feel  for  the 
amount  of  distortion  the  systems  are  adding  due  to  the  number  of  bits  of 
precision  that  were  carried.  These  figures  are: 

DSB  23.8  DB 

SSB  21.2  DB 

These  signal  to  distortion  ratios  ?:e  not  particularly  good  indicates  that 
the  signals  should  be  carried  through  the  system  at  greater  than  8  bit 
precision.  And  the  filter  should  be  implemented  with  more  than  10  bit 
precision.  Good  precision  for  the  signal  would  be  10-12  bits  and  12-14  bits 
for  the  filters.  Actually,  10-12  bits  could  be  used  for  the  filters  provided 
the  number  of  taps  is  kept  low  by  lowering  the  sampling  rate. 

The  FM  system  was  checked  using  a  longer  pulse  train,  about  20 
pulses.  This  pulse  train  was  passed  through  the  system.  The  pulse  train 
was  FM  modulated  filtered  and  translated  to  3.34MHz  resampled  and 
demodulated  and  printed  out.  As  can  be  seen  in  figure  43  the  pulse  was 
faithfully  reproduced  at  both  a  height  of  1.  0  and  0.5.  These  two  illustrations 
show  that  the  digital  FM  system  simulated  is  feasible.  As  before  the  signal 
was  carried  to  8  bit  precision  and  the  filtering  was  implemented  to  10  bit 
precision.  Provision  was  made  in  the  simulation  for  preemphasis.  The 
parameter  cC  in  figure  40  may  vary  from  0  (no  preemphasis  j  to  1  (phase 
modulation).  This  parameter  was  not  investigated. 

i.  SUBROUTINE  DESCRIPTION 

GAUSS  (S.  SQH,  SGH) 


This  subroutine  returns  a  gaussian  random  variable  X  (in  volts)  with 
zero  mean  and  standard  deviation  SQH(  10)*^^^^®.  SQH  is  the  RMS  value 
of  the  signal  where  noise  is  added  and  SGN  is  the  signal  to  noise  ratio, 

RND  (X,  XMAX,  L) 

This  subroutine  rounds  X  to  L  bit  precision.  XMAX  is  the  maximum 
magnitude  of  the  variable  X. 
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'2  J6  M  M  23 

S/GNfiL  -  TO  -DISTORTION  RATIO 

THROUGH  SYSTEM  ~  21.0,  OB- 


32 


Figure  41:  SSB  Simulation  Results 


OUTPUT 


CS  (X,  L) 


Computes  cosine  X  to  L  bit  precision. 

SN  (X,  L) 

Computes  sine  X  to  L  bit  precesion, 

FFT  (X,  NSTAGE,  SIGN) 

Subroutine  to  take  Fourier  Transform.  For  details  see  comments  in 
listing  of  the  subroutine. 

ERR(XR,  XI,  IL,  M,  FM,  FT) 

This  subroutine  computes  the  normalized  magnitude  of  the  spectrum 
of  a  complex  signal.  XR  is  the  real  part  of  the  signal,  XI  is  the  imaginary 
part  of  the  signal,  2 is  the  size  of  the  transform  used,  ivf  is  the  number 
of  complex  samples  of  input  data,  FM  is  the  output  magnitude  of  the  spec¬ 
trum  and  FT  is  a  complex  working  matrix. 

FIND  (XR,  XI,  IL,  M,  REP,  FT) 

This  subroutine  calculates  and  prints  out  the  normalized  spectrum  of 
a  complex  wave  form  with  XR  the  real  part  and  XI  the  imaginary  part.  All 
parameters  are  the  same  as  in  ERR  except  that  REP  is  the  rate  at  which 
the  time  wave  form  is  sampled.  This  subroutine  calls  FFT. 
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%  CS£  SlVULATION 

c  SINGLE  E  I C  f-  G  A  N  T  SIVULATICN  D.L.FLETCI-Efi 

DIVENS  TCN  UECE(1  00  ),URFPfl  fiO  )» ANLCGUOn  JiXdOO  ),XR(  300  ), 

+  XU2  0C  >,XR?<  ^CO)  ,XT2(4"0  >,XR3(B5  0),>13(85njf  XR4(lbO),xI4(  150). 
*XRb(169G)«VIf  0  650),  XftM35n)*XI6(35G),XR7(90C)pXl7<  9(10), 
*XR6(3CO),XTe(?00).vR9(300).xi5(300)(XCUT<3C0),FTM(bl2) 
OlNENSTCN  Fl(5l2),FV{i024),F2(5l2) 

CGVFt EX  FT (  2 , 1  024  ) ,c 

DATA  A1,  A  2, A  4, a8,A9, a 0/ 1,7 4, 3, 56, 2. 5  6, 20, 03,34.86, 34, 86/ 

DATA  LF,i./1C,6/ 

DATA  V?Ifi,VS,Vfi,vA/5, 45,40.20/ 

DATA  .N?,N?p,NRF  ,\A/ll  ,Ol,f  i  ,41/ 

NS  =  NO.  CF  TERV?  If  INPUT  STGNiA l  =  2+MSIG+ 1 
NSRshiC.  f)F  7ERV?  IN  $Sq  F II  TFfi  s  2*VS+1 
NRFiNC.  OF  TERNS  IN  FtP  FIlTFR  s  2*NR+1 
NAcnO.  CF  TERN?  TN  ANALOG  FILTER  3  2+NA+l 
DATA  F7S.F7R,FZA/,18«3,.12  5>?>,0212/ 

data  son  ✓ i 5 ; / 

PI*2 :i4l5S265 
CCALOlLATE  TAP  WFIOFTS 
DC  ’5  D  f  si  ,  vc 
FI  s  I 

WIns!5o+,46*Cc?0'I*FT/50,) 

lNSsNS+1+I 

WSSE (I  VS >sWIN+?In  <rZS*Pl*FT)/(PI*Fl4F2S) 

CALL  RNCtUSSE(lMS),1.0,LF) 

JFSs«S*l-I 

^0  WSSb <„NS >*WS$E (INS) 

♦** s s e  (v?+ j  >  =  i ;  c 

CAlL  PN-CUSSMPS  +  l),  J  ,0»LF  ' 

FVRsKR 

DC  t  0  T=1,VR 
F I  s  I 

ATsFlAFI/FVfi 

WINS  ;c<!+  ,46  +  rc?  (  AT) 

INRSKR*I*1 

WRE'F  (IhR)sHN*SIK  (FZR*pI*FT)/{PI*FI*FZR> 
call  fncuref(imr),i,o,lf) 

JNR  =  NR-H-I 

60  WRf  F  (,wvR  )  stsRpp  { I*rt  ) 

WREF *VR  +  i  )  =  1  ,C 

CALL  RNCn*REF{VH*l),i,n,LF  ) 

F  V  A  =  V  A 

DC  70  T=1,VA 
FI  e  I 

ATsF 1+FI/FV A 

WINS .  =  4  +  , 46+OCS ( AT  ) 

Ii^  A  s  V  A+ 1  +1 

AMCG(T*A>stkTMSI  'I(F7A*PI*FI)/<FI  +  FI4FZA> 

JNA-VA+1-1 

ANlCG(vVA)sAM.CG(Ima) 

7o  ccnt;me 

ANL'CG(VA  +  1  )  S  1  ,0 

c  LC AO  5&  PERCENT  Rc  PbLSE  -  - 

A=e. o+pi/15, r 

DC  60  T s  1 ,  v S  J G 

FIs] 
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It'SlGsf'SlG  +  l  +  T 

X(3if'SlP)aSTN(A*FI)*CCS(  ,5*  a*FI  )  /  ( A  *F  I  *  ( 1 ,  -  <  8  ,  *FI/X» . )  **2  ) ) 
CALL  FKL()i(IKSIG)»1.0»7) 

JKSlRsy SIG  *1 »I 
80  X{Jf»S3fi)sX(If^SlG) 

XCKSIG*1 >  =  1 . r 

CALL  RNC(>(iv?.TG  +  1),1,0»7) 

PRIM  »1,  <X(1  }  # 1  =  1, NS ) 

di  F  C  RK  A  T (INI ,17hINPUT  LA  Ml  FCSM  /(10F10.5)) 

CSMFT  SFECTRL*  8Y  1.65  KC 
W  =  1  .65/15 . n 
DC  11C  1*1  ,  N  S 
FIsI-MIG-1 
XN»2  .  C*FI*MFI 
XRtI)sX(I)*CS(XWfLF) 

CALL  RNC<XR(T)*1,0*L) 

XI( 1  )=X(I)  +  SN(XW,LF) 

110  CALL  RN‘C<xI(7)»1»0,L1 
C  CCNVOLVE  ltth  first  filter 
DC  IIS  1  =  1, N? 

C  SHIFT  A L I.  TERM'S  EY  NsB 
IN=IN8g*KS»7 
ISPNS+1 -I 
XR(In>.XR<TS) 

112  XKH)sxl(IS) 

K-S1=NSP-1 
DC  112  I  =  1  *  N  S  1 
XR(I  ):(l  .0 
113  Xl(I  )  =  fl  .  0 

C  NF=NO,  -CF  TERHS  01. T  CF  FIRST  FILTER 
NF=!NGE+NS-1 
DC  115  1  =  1  ,  N  F 
DC  1 1  A  .  =  1  ,NSE 

I  J  =  I  •*tv-»l 

XR? (T)=XR2 (I )4LS?B( J)*XR(I J) 

114  Xl2(I>»XI2<n+WSScJ(J)  +  XI(IJ) 

CALL  RNC(XP2 (I  )* At.L) 

115  CALL  RNC(XI2(I)»A1,L) 

CALL  ERR (XR2*XI2,9,NF,FM,FT) 

PRINT  10 

10  FORHAI (1HC ,3HLSB  ) 

•  CALL  FT.NO<Xfi?,Xl?*9,\F,l50nO.#F7) 

CEFFECTIVEI  Y  FILL  WITH  ZeRCS  an:  CONVOLVE  KITH  7  KC  LOW-PASS 
C  REPETITION  FILTER,  QLIPUT  OF  FILTER  IS  AT  120  KC 
DO  150  I  “  1  *  N F 
C  SHIFT  ALl  tERF?  BY  NfiF 
irunrf+nf-i 

-  IF  4*.  Ml- 1 

XI5 ( TR ) =XI 2 ( IF  ) 

-150  XR5 <  TR 1  =  XR  2  < IF  ) 

NRF 1 »NRF«1 
DC  160  I »1 , NFF 1 
XR2 (I)aO.C 
-164  -XI2m-*Oc& 

C  CALCULATE  120  KC  ClTPUT 
J  =  C 

DC  170  L 1  *  1 » M 


-109- 


DC  1 V  C  K  *  1 , 6 

w3k  +  1 

DO  1 7  C  1*1,11 
LTsLI -T+92 
LKs£*(','*l)+K 

XI3<  J)JXT3  (A.  1*URFP{LK  )*XI2(LT) 

170  XR3  {  J)sXR?  (w  HUR,:P(LK  )*XR2  f  L T  ) 
c  J  Is  Tl- E  MM«ER  CF  OUTPUT  SAMPLES  F R 0 K  REP  FILTER 
K2a. 

DC  1 8  C  1*1, KJ 

CALL  F  N  C  013  (  I )  Ai,L) 

180  CALL  RKC(>P3(I)*a3,L) 

PRINT  11 

11  FOfil“Al  (lWC,AhUREP  ) 

CALL  FTND(XR2,XI3,10,k2,12OOOO.,FT) 

c  plt  signal  throlgm  Interpolation  filter  and  simulated 
c  analog  filter 

DC  19  0  1  =  3  ,  K  2 

DEL  I*  (Xl3(l+1  >  =  XT3(In/3?.0 
DELR»(»R3(I*J ).X»3(I)  )/32,C 
DC  19C  w3l  ,22 
Fjdw 
Ka«  ♦  1 

KHMOC  <K  .100  >+l 
C  K  IS  XR4  livCEv 
C  K1  IS  xR4  PYLIC  INDEX 

XI4(KiisXI3(T)+(rJ-l, >*D£LI 
XR4 (K1 1sXF3 (I )+<FJ-l , )+DELR 
CALL  RNC (>R4 <K1 ) , A4,L  ) 

CALL  R  N'C  ( X 1 4  ( K  1  ,A4,t.) 

IF  (II* OC  f  K  •  1 6  ) ',  EG  «  0  )  GC  TO  200 
190  CCNUME 
GC  10  22  0 
200  CCNUME 

C  CALCULATE  OLTFLT  CF  ANaLCG  FILTER 
C  M  IS  X*5  IN.CE> 

M  =  M1 

DC  -21  G  L  1  *  1  ,  N  A 
N=MCn(74+(M«l)+16+Ll,100)+l 
XI5(H)«XI5(M+ANL0G(L1  > ♦  X 1 4  C  N  > 

210  XR5(M)sXH5m  +  ANLOG<ll)*XR4<N) 

-  -  -&G-'TO-4-90 

220  CCMI'NLE 

M1XN/2+1 
M21M/5+1 
DO  ’23C  I«1,M 
XI7 { I ) *x T5 ( 2 ♦ I«1 ) 

• - W{TM>fl5(e+}tl) 

230  CCNTTME 

PRINT  42 

12  FORMAT (1HC,15RRECEIVFR  INPUT  ) 

CALL  FIND (VR7,Xl7,tO, Ml  ,1200-00,  ,FT> 

DO  ‘2 4 C  1*1  , M2 

- XJ«~HF4*X-m5-4  ?<•*.>  - 

240  XR6(I)*XR5(3*I«4) 

PRINT  43 

13  FCRMATUMO,23HOUTPuT  OF  ANALOG  FILTER  ) 
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CALL  FTMHXfif  lXl6»9»i’2«48GftO«#n) 

C  XR6  IS  HFIT  Tf  FfT  T'J  LCO*  A7  CL'TPLT  SPECTRUM  OF  TRAMSmXTTER 
C  XR7  IS  I \F l  T  TC  FECET'/FH 
C  AFD  NCISF  AND  SHIFT  BY  NRF-8 
FP  1*?*P1 

DC  '245  1*1  .M 

249  XS*XS*xR7(I)*XR?(J5  +  yI7a)*xT7(l) 

SCh*  SCR7  (  x?/FM  ) 

DC  '25C  1*1  ,M 
M  T  s  p  \  4\RF»p»J 

MIsiM  4  1  -I 

CALL  C-ALSS  <2  #SCH(S,ON) 

Z7s2747*2 
XR7 (M7 )*XF7(KI )+Z 
call  GALSS  (2,SCH4SOM 
ZT *2747*7 
X 1 7 (M )=XI?(PI )*7 

250  CCN  7  Tm  £ 

IF(2T.PC«C.)  GC  TO  251 
SGdO  ,0  +  ALCGlC  (XS/7T) 

251  COM  TM  E 
PRJN  T  14 

14  FCfiMTnHC,12MFTER  NOISE  ) 

CALL  FTND<vR7,xl7,10,Mt,120000,,FT>  1 
C  SIGNAL  'GOE«  IMC  REPETITION  FILTER'  IN  STEPS  OF  8  INPUT  SAMPLES 
C  OUTPUT  IS  AT  15  KC 
N8  slN  RF  -5 
DC  2  6  G  I  *  1 ,  N  8 
XR  7 ( T ) s  0  ,  C 
260  X-1 7  <  I ) * 0 4 0 

C  CALCULATE  OLTFLT  CF  RECEIVER  REPETlTlCN  FILTER 
M3*M/P*l 
DC  '2 8 C  K*1 
DC  '2  7  C  Ll*J  #  NRF 

LT*L  1-*P  +  (K»l )  1 

XX&(K)3XietK).*wR£P(Ll  >*Xl7aT) 

27  0  XR6 (K)*xRe<K>*kREP(Ll  )*X&7(LT) 

CALL  RNC(XR6(K),4<3,L) 

280  CALL  RNC <XI6 (K ) , A3,L) 

PRIM  ?3 

23  FCRt*  AT  <1H0  .4PUREP  ) 

CALI- .FTM1<X68,XI8,0,M3, 15000  FT) 

C  SSB  1.35KC  LP  FILTER 
DC  '281  1*3 
IS*N9e+M3-I 
IK 3*4*1 
XRf (IS)sXRP(lM) 

281  ) 

DO  '282  1*1, NSl 
X  R€  ( I )  *  0  0 
282  X 1 6 (T  )*0  i  C 

M4*K3**S8*1 
DC  '2 83  1*1  ,K4 

—  —DC  *v*l  »-&■?{*•  "  -  -  -- 

Ij*l*v«l 

XR?<I)*XR5<n  +  kSS0<  J)*XRe(Iw) 

284  XIS  (I)«XT5  (I  )*V,SSi3(  J)*xI8(Iu) 
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CALL  RNC<XR9(I>>a9,L) 

283  CALL  SNC(XJ9(T >» a9,L) 

16  FCRMT (lHC»7hSSB  FTL  ) 

CALL  FTNP<VRC,Xl9,9,M,'l5QOOt  »FT> 

CALL  ERRORS. *19,9, M4, FI, FT) 

C  SWIFT  0Y  3  '.65  KC  AND  ADD  CO  G?  T  OLTFUT 
DC  '<50  IS1  ,M 

F I* I  <•!  ,i 

XW?2  .  OPI  +  MFI 
XBS(I)s)<RS(IWCS<XW,LF> 

■XIS(I)aXlS(I)*SN(XM.LF) 
call  RNCORSn),4'^) 

CALL  RNC <*IS n  )  ,  A9.L  ) 

290  XCLT (I >=XR9(7 )+Xl9(I) 

PRINT  ? 0 

‘  20  FC«M7<-MC*17RCU7PII7  WAVE  FCRP  ) 

PRINT  ?l, (XCL7(I)»Tsj,M4) 

2i  FCRMTUW  ,  1  CP  1  0 , 3  j 

C 

no  .34;  i«i f 2oo 

342  XlfD’sn.O 
C  RECEIVER  Cl  TPL  T 

PC  '2 6 C  Ioi,5i2 
FTC2,I)  =  CHPLM0,,U(  ) 

360  F  7  ( 1  .DoCNPLXOi  .0.  ) 

PC  3  7C  I  a  1 

370  F7(l  .1  )aCf»PLMXOtT(I),0.  ) 

CALL  FF7(FT,5,.l,  ) 

DC  .28  0  Iol,5l2 
F2U  >=CARS<F7<2#I>  > 

IF(F?(T)  .LF.C.  000  01  )  F?<I)»0*00Q01 

380  F7X(T)*20.0*ALCG10(F2(I)) 

B4F7N(80) 

DC  -2H1  Ini, 512 

381  FTM  T  )  sFTM  J  )  oE  , 

SKFC-S1504C  ./5l2, 

PRIM  ?65 

385  FCSr  A7UP1 ,22WRECEIVFR  OU7PL  T  IN  CD  > 

PRIM  29  0 , SX  PC 

390  FCRpAlnM  , 1 6WS ANPlE  SPACING  =  #  F 1 0  *  4  > 

DC  400  1*1,5? 

— 

Fj*w 

CI*F J*5 , fl*SXPC 
K1 »5  ♦ 1 

K2*K144 

<00  PRINT  350,CI,(FTM(K3),K3«K1,K2> 

-&Hh-  -  -PPWHk  T-f  iff  r6fl2-r£4-  -  - 

C 

ER»G !  0 

REAC  435.{FMI)#I*1,51?> 

O0  -41  C  I«-l,5l? 
i:r?*fp?+fmi)ifm(I) 

-MrO - >  »♦  E  -  -  -  - 

PRINT  420, FR 

-  42(1  £03X4-7  M»K0r24XlNTE&RAl  SQUARED  NOISE  *  ,F8r3> 
PRINT  429, SG 
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425  FCRMI  (1WC,  44(-SlGNAL  TO  NCTSE  RATIO  AT  INpUT  TO  RECEIVER  = 
1  41 1-  1 C  P  ) 

RGA  =  1C1o*AI.CG10(E^?/ER) 

PRINT  43  0  , ?GA 

430  Fcftf.AT(lHC,2/PSlPNAL  TO  K< C T S E  POWER  ClT  =  .FlO.J»3H  D8  ) 
PINO  435,  (Fj  (I)  ,1  =  1,512) 

435  FCRMTflflFP.S) 

999  CCNTIME 
STOP 
ENT 


SLPROLTINE  GALSS( X, ScH, SGN  ) 

C  This  SlERCl  TTNE  RETURNS  a  R  A  > '  S  S I A  f\  fiANCO  VARIABLE  X 
C  WITH  2EFO  kfaN  aNC  ST.  DEV..  -  SO/  <  1 0  ,  *  *  { SGN/20  ,  )  ) 

C  SCH  =  SGLAWE  RCCT  CF  The  S'lM  CF  TPE  SCIARES  OF  THE  W"S 
C  SGN  =  VC  I  I aGE  SIGNAL  To  NOISE  RATIO  IN  EE 

DIKE-VSTCN  INTGa?)»IND(12).lR(t2)»I^X(l2> 

K  =  K  ■*  1 

I F  ( K  ; c* T  .  1 )  GO  TO  2n 
SCsSd-/(lC  .**(SU\'?0,  )) 

IMG  (1  )  =  9l54fi2B 
pc  in  7  =  i,u 

IMG  ( 1*1  >* IMG  (I  >*101  +331 

in  e  ( r  )siMG  d4i  )/inonooooo 

INC  <T  )»INC  <1 >*100300000 
10  I N TG  <1*1  ) s I N T G  (I  +  DsINOd) 

0C  15  T  =  1 , 1 2 

15  IP  <  3 )=(I*S>**2»(I+9)*41 
20  CCMIME 
SL N  =  o ,  n 
DC  -20  7  =  1,12 

JMG<I>=INTG<I>MU1*IP(I> 

INCtDaINTPnj/lOOoOOOOO 
INC(T)»INC(I)*1000nonoo 
--  -IMGm  =  IMG<7>«lNo(I) 

IM (T )aINTG (I  )/l00O000 
30  St,l*s8l>-»FLCAT(IMX(I)  ) 

FN«(SLP-954.G>/99.995 

c  Fn  IS  A  6A1SSIAN  RV  UlTH  ZERO  MEAN  ANC  VARIANCE  *  1.0 
X=PN*SF 

- -Rg-ItftN 

ENT 


»  F9  »  ? , 
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sifholtime  rnc (X, <max,l > 
c  This  SlE^Ct  7 INF  KClMCS  X  Tn  L  BIT  PRECISION 
C  Vy  A  X  IS  ThF  ^ 4 v  1  h i_ y  y ABN t T'IDF;  OF  THE  VARIABLE  X 
S  =  2  ♦  *  ( I  -1  )-l 

IPO.GF.O.)  Ijc  =  X*(S/XmAX>4.5 
IF(Xin.O.)  1X  =  X*(q/5CMAX)-.5 
FI  X  = I  X 

X  =  FI X+ ( XM 4  X/S  ) 

RETiLBN 

EN[ 


FIKCTKN  C^O.L) 

cs^cnsrx  ) 

CALL  RfcC(CS»J,0»l. ) 

RETLkN 

EN  C 


FINCTIFN  SNO.L) 

S\  =  S  TN  (X  ) 

CALL  PNC (cN  ,  1  ,  n,L  ) 

RE  TlLBN 

ENC 
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SlfcPOL  TINE  FFT  (  X ,  N.ST  AGE  *  SIGN  ) 

c  fast  folrifr  transform  sibroutine 

C  COMMON  VARIABLES 

C  X<?,1024)g  CATA*  CCMOLFX.  INPLT  IN  COLUMN  1,  OUTPUT  FOK 

c  inverse  transform  tm  Col*  mm  i.  normalize:  cutjijt  for 
c  fcrwar:  transform  in  column  ?,  lnnofmalI2EC  forward  transform 
C  OUTPUT  I  IN.  rCL'IMN  1.  NSTAPE®  NL  MgER  CF  STAGES  AND  POWER 
C  OF  TWO  WHICH  N  IS;  Ne2  +  +  N  STAGE 
C  SlRNf  IiCFNTiriFS  direction  OF  transform 

c  SIGn=»1.;  FCRWART  TRANSFORM, 
c  SIGN's  +  1  .  l  T  N  '/  e  p  S  F  TRANSFORM, 

COMF1  £x  X(?,1  024) 

INTEGER  R 
N  =  2  +  *  N  S’  T  A  C-  E 
N  2  si  N  /  2 
FLTN=N 

PWI'2Nsfc.263l65?/FLTN 
DC  2  *v*l  i  NFT  AGE 
N2wsn/(2**w> 

NRs1N?w 
N'Is(Pa*v)/2 
DC  '2  1*1, M 
IN2>v  a  ( T  -1  )*N?* 

FLTNP,cIN2j- 

TEMF  =  FI  I\'2v'4FhI2i\*SlGN 

W  =  CMPLV<CCS(TEMP).SIN (T£MF )  ) 

PC  2  Raj. nr 
T  Sl'E  sR  +  IN'2* 

ISL  E 1 sR+  Tft  4  £ 

ISL  6  TSUSl *N  2 J 
ISLE JsTSUE+^2 

X(5.TSl  E)  =  M3,ISldl  )  +  w#X(l,ISLB2) 

X(5,ISl  63)s)t(i,IsUqi).w»X(l,ISUE2) 

2  COMTmE 
DC  2  Rsl.N 

3  X(1 ,R>»X <2,K  ) 

IFfSTGN.G7.Ci)  RETURN 
DC  4  RsJ.N 

4  X(2,fi)sXtl ,R )/FLTN 
RETURN 

ENC 
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SLbRoL  T I\E  Ess(Xfi#Xl,IL,M,Fy,FT) 
CINENSrC\  Fr'(5l2),yR(5l2),yI(Sl2) 
COFI  £X  F7<  2,512) 

PC  10  T  =  1 #512 
FK  (I  ):ti  .0 

FT(l.HsOPPLH(Os#0.) 

FT C2  . 1  )sCKPLV  (0  , ,  0  .  ) 

N  =  2**  II 
DC  '2  0  7  =  1  , y 

ft < i . i )  =  cyPL> (xR(i)»ki(i) ) 

CALL  FFTtFT.TL.sl#  ) 

DC  -2  0  T=  1  ,  N 

Fy (I )  =  CA«S(FT(2,I>  ) 

A  =  F!y  ( 1 ) 

DC  40  T  =  l  ,n 
F^fl  )=Fy  (I  )/A 
RET'LtfN 
em: 


T N  Pt.  T  H»ve  FORK 

-0,01587  .0,0158?  -0,05924  -0,0476?  0,55556 

0,01507 


1,00050  0,55556  .0,84762  .0,09524  0.9158? 


WSS 

S4KPLE  ?04fUG 
0.  F0««. 
146.48 
39?.  97 
439.45 
585.94 
733.42 

- 830.,  91  - 

1025.39 
1171.87 
1319,36 
J464.84 
1611.33 
-  - 
1904.30 
2650.78 
2197.27 
2343.75 
2490.23 


2793.30 
2929.69 
3076.17 
3333.66 
3369.14 

- - 351-5,63- 

3662.11 
3808.59 
3955.08 
4101,36 
4248.05 

_  4  4  f  q  3  _ _ 

4541.02 
4687.50 
4833.98 
4980.47 
5126.95 
6371.44 


29.2969 


5419.92 
5566.41 
5712.69 
-5659,37 
6005.86 
616?, 34 


.43,15 

047.76 

=59.05 

•53,49 

•52.44 

•«56,30 


6296,63 

-6445,31 

6591.80 

4738,29 

6884,77 

7011.35 


•53;20 

•63,74 

.49,67 

•46.74 

•46,83 

»46T77- 


7177,73 
-»3?4,??- 
7470 ,70 
7*l?ri9 
7783,67 


•44,80 

..68,74 

045,42 

•M.U 

•49,46 

-•H.08... 


-o.oo 

r.r; 

•  n.ci 
0.C3 
o.ci 

•C  .  C4 
0  .04 
0.07 
o .  1 C 

•  3 . 5 1 
*11 >69 
-3?, 9! 
-44.32 
-42.53 
-63.55 
-44.4J 

-38 . 35 
•51  .22 
--45.35 
-53,19 
•65.64 
*57,94 
-47,97 
•41 ,3C 

-— 64t44 
-37.47 
-43.11 
•50.23 
•42.49 
-39,35 
—92.97 
-43.51 

-4«,  f 

-53.3- 

•40,01 

-53.?2 

-49,29 
-65.04 
-52.77 
-44,04 
-49,07 
•  43-, 37- 


•93,68 
•  93,41 

iOlOl 

*5- 

•l4;oi 


•45.37 

-69,64 

■43.12 

•19.08 

•60.46 

•61.96- 


S pmctwi  in  D5 

n,oo 

ft  ,05 
oft  ,02 
".05 
oft  ,  02 
aft  .02 

ft,  04 
0.11 
a  .»,09 
p3.*S 
-15.11 
•51.36 
-65.64 
-43.61 
•55.22 
-40.83 
-39,75 
-53.76 
-44,86 
•55.64 
-65 .64 
•55.96 
-46.9c 
-41 .54 
-47,7. 
-37.45 
•43.82 
•54.42 
•39,9c 
-40.14 
-—46 ,66 
-44.23 
-52.59 
-50.0:' 
-65,64 
•58.04 
— 46.94 
-47.63 
-57,05 
-63.87 
-49,49 
-51.15 
-46,46- 


553,71 
•48,79 
-43.11 
•54=79 
•55. «3 


*46.83 

•56,40 

-41,32 

••39-95 

•59.57 

-64-96- 


0.02 
0,04 
•0.02 
0.05 
•  0.04 
0,01 
0,03 
0.16 
•0,41 

•5,ie 

•16,99 
=62,11 
.54,51 
•44,32 
=56,61 
=36,75 
=41,97 
=52,19 
•47,06 
=60,3? 
=64 ,64 
=54,00 
=  44,15 
o42 ,  ?  1 
=42,63 
=36,00 
=45,10 
.65,64 
=36,32 
=  43 ,21 
-o44,3i 
=45,19 
=57,55 
=50,06 
=57,20 
=65,64 
-•44,86 

•  47,61 
•61,20 

•  57.13 
-=43,86 

=52,16 
“—•44  ,98 — 
=49,12 
•32,19 

•  39,99 
•41,7? 
•52,40 

— =65—64 — 


•55,4? 
-46,-85- 
•43, ?0 
—  65,64 
•65.64 


•  62,84 
-•44,37 
•44,15 
-•61 ,54 
i5?,«3 


•52,62 
-.48,32 
•39,15 
•  44,59 
•50,33 
—94,99- 


•64,28 

•  43,4| 
•46,72 
•55,4» 

•  49,06 
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7910.36 

8056.64 

P?03.12 

P  3  4  9  ,  6 1 

849 6. 09 

864?. 58 

8789.06 

8935.55 

9082.03 

9228.52 

9375.00 

9521 .48 
9667.97 
9814.45 
9960.94 
10107,42 
10253.91 
10400.39 
10546.87 
10693.36 
10839.84 
10986.33 
11132.81 
11279.30 
11425.78 
11572.27 
11718.75 
11865.23 
12011.72 
12158.20 
12304.69 
12451.17 
12597.66 
12744 . 1 4 
12890,62 
13037.li 
13183.59 
13330,08 
13-476 , 56 
13623.05 
13769.53 
13916.02 
14062.50 
14208.98 
4435^-^47.  - 

14501 .95 
14648 , 44 
14794.92 

WR£P 

SAMPLE  spacing  « 
0. 

585.94 

1171.87 

1757.81 

- 2£43r35--  - 

2929.69 

3315,62 

4101.56 


=44.43 
=38.65 
=50.75 
=49.20 
=42.04 
•41.20 
=49.36 
=57.67 
=  44.52 
=47.47 
=  4  7  # 54 
=48.45 
•42.12 
•47.72 
=65,64 
=47.76 
•43.79 
=42.44 
•52.94 
•49.14 
•58.13 
•47,26 
•50.55 
•50.00 
•49.65 
•51.57 
•50.03 
•43.56 
•45.33 
•55.35 
•46,80 
■46.10 
-55,55 
•53.55 
•55 , 05 
■45|  (17 
•43,64 
•49.83 

•  4.97 
•?i.07 

•  0.64 

•  0.37 

•  0.17 
-  —  Ov48 

0.03 

0,03 

0.15 


•41 . 5t 

”39.62 

■54,74 

-46.67 

"41.66 

•41.54 

-55,76 

"65.64 

-43.47 

-49.63 

-45.77 

-56.06 

“41.26 

-52.43 

-55.02 

-46.92 

•42.93 

-43.52 

-54,5c 

-48,87 

-50,37 

-50,5= 

•5  n . 5  c 

-46.87 

-55,11 

-50.50 

-48,71 

-43.05 

-47,31 

-49,91 

-49,8? 

-44,38 

-65 ,64 

“63.72 

?65 , 6  4 

-47,21 

-4  3, -36 
-61,65 
-3.V56 
•  ? .  7  C 
•0,85 
•0,62 
-0,30 
-0,16 
8r05 
0.02 
0.05 
0.15 


-39.67 
-41 ,25 

-56.9c 

-44.6c 

-41.35 

-42.25 

-68,64 

-58.84 

-43,36 

-51.13 

-44,65 

-59.44 

-41  .43 

-59.57 

-54.06 

-46.23 

-42.25 

-45.20 

*54.08 

-49,95 

-47.02 

•60.07 

”54.23 

-45.57 

-65.64 

•50,9c 

-47.16 

-42.95 

-50.45 

-47.15 

-57,68 

-44,16 

-53,56 

-60.95 

-54 , 48 

-54.67 

-46.13 

-37.38 
■-J1  ,00 

•  2, 7j 

••0.73 

•  0,58 

•  0,24 

•  0,15 
*•0  >02 

0,02 

0,08 

0.13 


•36,65 
=43,68 
=55 , 58 
=43,50 
=41,21 
=43,63 

=55,35 

=50,75 

=44,06 

=51,10 

=44.53 

.48.47 

=  42 ,5o 

a65 ,64 

=50,57 

•45,52 

o4l,88 

=47,4? 

»5tf ,31 

•53,44 

o45,63 

■£l.73 

s65 , 64 

=45,59 

«55 , 0i 

t»5l ,  03 

o45 , 68 

•  43 , 3i 
*56,49 
•45, 8j 
•60,55 
tf45,4l 
•50r45 
•53,79 
•48,05 
•57,09 
•56,30 

•  26,40 
•8r56 
•1,56 

•  0,68 
•0,52 
•0,20 
•0,13 

UrOl 

0,01 

0,11 

0,11 


-38,32 

-46,8b 

”52,37 

-42,62 

-41,12 

-45,81 

-56,12 

-46,74 

-45,48 

-49,59 

-45,56 

-44,23 


-44 

.54 

-65 

,64 

-49 

,01 

-44 

.69 

"41 

,92 

-5'0 

,24 

*50 

.41 

-64 

,  65 

■45 , 

,70 

-53, 

,03 

"59. 

1  ov 

-46 , 

86 

"53, 

62 

"50. 

83 

-44, 

46 

-44, 

06 

"65, 

64 

-45, 

67 

"50, 

04 

-48, 

53 

•50,! 

5* 

-59^0 
"45,41 
-46,89 
-54,10 
-22,30 
-«6r57 
-1,43 
•0,66 
-0,44 
-*0,18 
•0,11 
-  0-rO*  - 

0,02 
0,13 
0,08 


117,1875 

0. 

•  0.03 
0,08 
•  46,61 
-«^5T99  - 
•46.22 
•40,65 
•46.32 


0,02 

*0,12 

*1,04 

-38,37 

~~3-7-r~g4  — 
-47,?3 
-40 ,?3 
"34,98 
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0,03 
=  0.03 
•  5,25 
-39,83 
-43,15 
-53.65 
-36,05 
-39,36 


••0,01 
0,03 
•15,00 
=46,89 
-*4-  V08- 
•45,22 
•40,15 
=44,83 


0,02 

0,04 

•37,05 

•52,94 

-•♦Mi 

•37,21 

-44,69 

*41,36 


RECEIVER  OLTpUT 
SAMPLE  SPACING  = 
0  . 

IN  CB 

29.2969 

-59.18 

-58.9? 

-55.51 

-42  .49 

-33.70 

1 46 . 48 

-26.39 

-^0*36 

-15.42 

-11  .40 

-8.16 

?c? . 97 

-5.62 

*3.66 

0?  .  22 

-1.22 

-0.58 

4?9 , 45 

-0.22 

-  0  .  C6 

=  0  .  02 

-0.05 

-0.08 

585.94 

-0  .  09 

-0.06 

=  0.05 

-0.00 

0 .05 

73?. 4? 

0.06 

0.1C 

0.11 

0.11 

0  .,10 

878.91 

0  .  08 

0  .  C6 

'0  .  03 

-0 .01 

-0.06 

1025.39 

-n.n 

-0.15 

::0  .16 

-0,14 

-0.09 

1171.87 

-0.01 

0  .  06 

0  -16 

0. 2l 

0.22 

1318.36 

0.20 

0.15 

n  .  09 

0  .04 

0. 

1 464 .84 

-0.01 

0  •  0? 

0  •  07 

0.12 

,  0.18 

1611 .33 

n.23 

0.2  7 

ri .  3r 

0.32 

0*33 

1757.81 

0.33 

o.3l 

0.28 

0 .23 

0*16 

1 9P4 . 30 

0  .  08 

0  .  Cl 

=  0.0? 

-0  ,  03 

0 .02 

?  050 . 78 

0.10 

0.2T 

0.28 

0.32 

0.29 

?197 . ?7 

0.21 

0.  C6 

=  0.1C 

-0.25 

-0.35 

2343.75 

-0.37 

-0.32 

=  0.22 

-0.10 

-0.00 

2490  r?3 

0  .  04 

n.01 

=  0.09 

-0.25 

-0.42 

2636.72 

-0.58 

-0.69 

=  0  .  7? 

-0,72 

-0.68 

2783.20 

-0.67 

-0.75 

=  0.96 

-1,27 

-2.03 

2929 . 69 

-2.95 

-  4 . 3  r 

=  6 . 04 

-8.27 

-11.09 

3076.17 

-14.60 

-18.96 

-24.37 

-31.18 

-40.01 

3???. 66 

-52. 08 

-62. 1C 

-62.55 

-62,12 

-62.61 

3369.14 

-63.73 

-63.1/ 

-63.38 

-66.4! 

-  7 1 , 9  0 

3515.62 

-70.59 

-65.88 

-62.43 

-60,85 

-60*97 

3662.11 

-61.95 

-62.83 

-62.34 

-59  .57 

-57.28 

3808.59 

-57.11 

-59.59 

-65.28 

-68,60 

-66.48 

39*5.08 

-64.47 

-61  .44 

-59.9? 

-60,67 

-62.93 

4101 .56 

-64.37 

-64.93 

-66.54 

-67,95 

*  6  7 . 8  / 

--  ••  --  -42^8 .05 

-68 , 94 

-  7  0  •  7  7 

-67.32 

-63  .53 

-62.06 

4394.53 

-62.81 

-65  .58 

-69.36 

-73.16 

-69.13 

4541  .  (12 

-62.44 

-59.16 

-58.49 

-59,97 

-63.17 

4687.50 

-67.85 

-  7  1  .72 

-64 .62 

-60.17 

-58.69 

4833.98 

-59.37 

-61.53 

-63.76 

-64  .  04 

-62.71, 

4980 . 47 

-62.04 

-63 .64 

-68.98 

-69  ,  Cl 

-63 • 89 

5l?Af95 

-62.36 

-6?.6C 

-63.32 

-63.96 

-65.41 

5273.44 

-67.10 

-67.47 

-67 .9j 

-70,05 

-73.12 

54j9.92 

-74.71 

-76.25 

-78.72 

-78,66 

-76.34 

5566.41 

-72.68 

-69.99 

-70.01 

-72,65 

-68.78 

5712.89 

-63.51 

-61.10 

-60.99 

-62,94 

-66.81 

5859.37 

-70.40 

-6  8  . 5 C 

-65.46 

-63.52 

-62.38 

- 6-0'P5"*'8"6  —  *  ~ 

*-61  r5? 

-61*09 

-61.99 

-65  r4 0 

-74,35 

6152.34 

-76.47 

-72.01 

-75.83 

-52,16 

-76,20 

6298.83 

-76.39 

-83. T7 

-7«.45 

-76,59 

-74.29 

6445.31 

-69.38 

-67.17 

-67.33 

-66,58 

1  -64,80 

...  -6591,80 

-63.82 

-65.34 

-69.97 

-75.46 

-73.97 

6738.28 

-73.80 

• 2  •  C  C 

-69.23 

-68.36 

-67.80 

JJ. 

-  .  -r45_,  5*. „ 
-70.01 

-63r4* 

-64,67 

-67 , l9 

7031.25 

-'6.9c 

-78.45 

-<58,5  0 

-66.02 

.  7177 r73 

*67.71 

-76.77 

-75.96 

-65  •  7j 

-71.83 

7324.22 

-90.89 

-68.70 

-64.47 

-64,22 

-66.94 

-74?Q-c7<) 

-72.43 

-77.24 

•7? , 4J 

-66,94 

-64,22 

UTFCPAl  S0UAR€D-Nflj-S€  — ~ 

—  0  t-B  7  e-  - 

..  .  . 

- 

•SIGNAL  -TO- -NOISE 

-  RATIO  AT 

INFt  T  TT  RE Cf 

TVER  *  14 

,56  D8 

smn  to  -kois€  power  ou  *  30. ec? 
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3. 


nSs  simulation 


,nOUOL£  SIOFRANn  «IMU|ATION  D ! L  1  FlETCNE* 

.iSS:*n.n05,kRFi3<lrt05,AVlr)oM.Ofi)»X(100),XRt300), 

,  +  XIMnn),yR5(ilO^),,  xT2,4no^»yR^<R,3ft)»XT3(350)>XR4(l50)>xi4<l50)* 
*yq*{*  *qn  >,  yl^(1  4  <3  0  >,  VRM35"  )  .*  X T 6  f  3=30  > .  XR7(900  )  .  Xl7<900  > , 
*XR?(^no),XT^Moo),XROf?on)  ,*«TOr3nn) .  *O  »T<30!>)  ,FTM(io3  0> 
nx^r'-|e5TnM  HVSlJM.FlfM?) 

COwoi_fry  FjVS.’tnJM)  ,C  ■ 

PAT*  A1.  a3;A4,  4r;a<J/1  .?e4^,43,2;63,*M,  32,19;  02,/ 

TAta  i.M/iO!')/ 

PAta 

■nfir.A  NB.^Sa^'^F.WA/il  ,9i,8«  ,*\/ 

NSsNP,,OF  TfRM?  n  IVPJT  STGa'Ai  s'2*MSTB*1 
WSSaMO*.  nr  TERMS  Tai  nSa  F 1 1_ T F R  s  2-MS*< 

NRFbmo!  nF  TFRvtS  tM  91°  FILTER  = 
iVAs^n(  r,F  TfRHC  T*4  amaLPR  FjlTFR  a 

PAta  p7B»F2^;f7A/. 4-2*6,  .  12«9t*  .0312/ 

PATA  SRM/15;/ 

PlsS',1  41  ‘i9P!Sei 
"CAlCULAtF  tap  WfIRHTS 

PO 

PI  BT 

Wlwn,,5«*.4**r0p<®I<>FT/4B;  ) 

TMQaMS+1 +  1 

PAN.  RA'P(W«!SR(TM,’),'i>;p,LF) 
i  JMpaMs+1 "I 

SO  !»S<;R<  JMt;)s  jSrR^ImS) 

U'SCR(M«?  +  l).t,0 

r  A I  L  RmP  (  WrSR  (  mS  +  1  ) ,  1  »0»l.  I 

FMOs^R 

no  *0  T*1 ,  mR 


l,'Inai5/!  +  «4A*P;)R(pI*FT/FMR) 

T^Ra^R-H *1 

WRPP/TMR)3*'lA<*RIM(p2R*pI*f  T)  /(pI'*FX*FZR) 

CAl  L  fWp?p(T^B)  .  t'i  0,Lf*)  -  ' 

'  J.MRsMR^IpX 

Afl  k«rp t Jmr >s jRrp ( IMR ) 

l*'RrP  (  MR  +  i )  si  I  0  1 

FA,  L  RmO(WrEp(mR*1),1  ,n/Lr'» 

FM  A  o*AA 

rO  7n  7  si » v»  a 
Fist 

wIAi«',54*,4*»rOS(Pl^FX/FMA  ) 

j^A0mA+1 *j 

ANI  nG(TMA):nTM*STN(F7A*Pl*Pl>' (Pin’I^FjO 
a ■ M a  +  i *I 

- --  A^tTO-fjMAliA^UnjTlMAT - 

70  ,  CQmTTM'iE 
ANI 

FI. TAO  *0?  pC  PUlcEl  R/I*4K5 
A  *  h I n *pT/lS  ,  n 

DO  Tb1#mSTG 

f  "  ~ 

X(TMRIR)sStN(  A*FT)*Cr'S(  *■$  $ *FI  W  (  4*FT*  ( 1 .  •  (  0 «  ♦rI^l3  ,  )  ♦  *2 >  > 
H A i  L  RvntXf IMSTG) *1 ,0.75 


•  !  "O  . 


jM^lGswCIq^ir 

AO  v  (  imcxp.  )eX'(  IHST3) 

V (mST5+1  )  a?  i  o 
C  A  i  L  9np<X>'iqIfi*1  )  ,  t i'1  *  7  ) 
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0  Mpsi'jn,  or  Tp-Rnp  OUT  OF  FTRST  fTLtEp 

•  . .  . . .  •  -  . 
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no  isn  i»i)mp 
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K1  ?  MOD/  V  ,  1  ri  g  )  +1 

r  K 

IS  Xp4  1^  PEy 

0  HI 

IS  vR4  0 YL I ^  TMp£Y 
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r  nSfi  3K«  |_P  FILTER 
Pf]  P*t  T*J  N** 

4.^311 
T'1  =  M3  +  i  ,i 
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435  FOpmatH  Of*  ,*) 
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40  FOPMAniH  ’  6F17 , 9  ) 

PTT  JP\, 
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0  200 

0  953 

•  0 1  *  7  7 
.0|4l8 

>1  1  1  **  I 

•0. 0‘7 
1,227 

0 , 007 
•0|62i 

0j99§ 

(7,9*1 - 

0.325 

10,513 

‘17313 — - 
0.015 

40. '32 

- IrSo®^ 

•1 , 0*4 

67^8 , ?8 

-67 ;  o'7 

•70,40 

-67,87 

•  6 1  1  5  5 

•60.46 

6*84; 7? 

-6?, 97 

-66  ,  i  1 

•61 ,71 

•59*9? 

-6?; 7? 

•60,04 

7  0  3 1 ;  p  5 

•65,14 

-87 ,60 

.95,69 

-73,26 

•63,6? 

71 77,73 

=67,68 

*78,06 

•67)57 

.66,19 

7  3  p  4 ,?2 

•  63*10 

•6i*oi 

-6  4  *90 

•79.43 

00 

• 

7470.70 

•75,09 

•75,01 

*75,99 

-77 1 48 

■72. 43 

7617,19 

-66  ,90 

•6x  ;°3 

-63,10 

-64  '19 

-67.27 

7763^67 

-73.26 

*75 .96 

-6  7 ,68 

-63 , 4? 

•  62 . 72 

701.,,  ,16 

-68,69 

.65,14 

•  60  |  a  4 

■59.2? 

8056.64 

•  61  .71 

■6  a  i'i  1 

-69,97 

-60 1 46 

-61.55 

8203,1? 

-67,57 

•  7  o  j  4  0 
•69,33 

-67,07 

-65193 

.69,08 

3  3  4  9  *,  6 1 

•7? , 1 4 

-65 ,9q 

•69| 37 

-60.27 

3496; n9 

-6n , 56 

-6*;*i 

-77/4 

-66! 7^ 

.62,9! 

8642158 

*63,86 

•64*. 95- 

•64,79 

-63J.oi 

•63,28 

3789,06 

-64,77 

•68,01 

-73,24 

-  ft  4 I 34 

•76,12 

8955,55 

-68,64 

"6  4 ,98 

-6j  .75 

•6o lOi 
•67',  13 

•  61 . 7o 

908?!  (13 

-63,46 

•64  !  86 

-64,75 

-72, 46 

9?28i 59 

•68,83 

»  6  4  ,  6  4 

-7 0  ,  fl6 

-Si ;89 

n6b,76 

9375.00 

'63,81 

•64 ;?7 

•79,39 

•73'.47 

•66  ,  Ol 

— 95?1  .-40 

-  v6*-,7 2  — 

'  "  6=^7  77'  - 

-  -  -  fftfarTt - 

-s  S3 1 7  4  - 

<i6-£.-53 

9667! 97 

-6?,7l 

"69186 

-63,02 

•63! 49 

•64,77 

98 1  4  ‘  45 
9960,94 

•  65.,  53 

•  68J  45 
" 7  n ,04 

•65,04 

•60! 42 

•73,97 

•67. 50 

•70 ,80 

.70,58 

-70,62 

10J 0  7 ! 4  2 

•68,56 

•  6 4  J 88 

-68,14 

•85' *3 
•60.07 

.67,73 

1 0?53 • 9i 

•63*79 

•  6**  » *3 

■ 65 ,56 

•79.72 

■m^rrorr*--  • 

-  •’TTfr I - 

”  •Vi! 35 

- i5T  ,~*T - 

■  sirjtTs-  - 

-•67 ,46 

1  0546,87 

1  0693.36 

•  61  ,?0 

-57  ;?7 

•61 ,94 

•56,23 

.57*70 
•59 , ?9 

.61,13 

•63,49 

-60.23 

•59, 5i 

1 0R39; 84 

-61 ,62 

•  64  1  39 

•60  ,98 

•60,18 

-63  J  05 
"63 .19 

•65.02 

10986,33 

1 1 1  3  2 !  8 1 

•66  *  25 

•70,84 

•61*62 

•6l,11 

_  z  «  ■  ^  -  - 

"61,04 

• 7l ,74 

•70 ’.98 

•60.22 
—  ,72765- 

•67,70 

•62 , 77 

t 

s£| 

1 

1 

1l4?5;78 

.6!  ,83 

•5o;43 

•63,11 

.59,08 

11.572,27 

•56 ! 76 

•39,oo 

"43,71 

"36; 30 
•1?! 30 

•30.22 

11718,75 

•24,89 

•2n , ?4 

-15,94 

-9.22 

ue<s5:?i 
1 2P|1 l 

12304, ’s9 
12^51 i 17 
12597,65 
127U4;14 
12090.52 


13ft37Ht 
131 83,59 
15310',  08 
13475  56 

13*23105 

13769153 


14062.50 
I42fl8  98 

14355,47 
14501 r«5 
14640.44 
14794 | 9? 


•  6,68 
-n  ,71 
'"0.04 
0,10 
-0,56 
•0,24 
0,11 
•o,?2 


•  4  i  66 

•  n  1  44 


•« ,  "3 

•  o  ,  48 

•  o  P  i  2 

« ,  n6 
•nil* 


-  frj-S4- 
0,09 
•0,06 

•  0,65 

0,10 

0,30 

~ 0"r38‘ 

•0,28 

•  0  ,58 

•0,34 
•0  i54 
0,01 
■*tr7T6" 
•0,01 


- 0J*8" 

n  ,  00 

•  "  i  <  JJ 
•«  I*’ 

rt,99 
o  ;?3 

~nT4D~ 

-n’,53 

•  n  J  4  3 

•o ,  4 3 

*n  «?U 

■’0 
-s-Lj 


14941141 

integral  squared  noise  • 


•  jj|¥3 
•n.ftO 


-3,10 

•0,30 
0  , 

■0,19 

•0,55 

-0,00 

•0.03 

•  0,07 

—  0,05 

*0,20 

-  0  ,  *  0 
0,40 
0,20 

— o-r55" 
-  0  •  7 1 

•  0,31 
-0,50 
•0*08' 
•o,11 
■  0,08 

0, 


-1  J.  97 
•o!?2 


•« !  35 
•  0*.  47 

o'.  08 
'0*.  13 
o!  08 


0 1  »t~ 
•  0.06 

•0J,'35 

.0*40 

0,43 
o  *  23 

r  *21 
•  4 !  7  6 

-0  J  52 

n  i  Oil 
•ft!  15 
••ynttrv 


o! 


*1 . 20 
•0.14 

•0.48 

•0.37 

0.12 

*0.2o 

0.23 

-Mt- 

“■0,05 

-0,15 

0.38 

0,30 

•  0 , 7 1 
--0  ,*? 
-0,46 
8i-03~ 
•0.17 

0. 


0,246 
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stgml  to  noise  ratio  *  -m.bo  ob 

S I G i\ A (_  TO  NOISE-  °OwER  OUT  =  29,«8Q  OB 
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H. 


F  ft 


ANJ  PM  SIMU  ATlON 

UnEmSIQim  35s3TT00>f  WrtE^(lU0)»A^LoG(  100  )*X(  100  ),XK(d«O)f  Dl^'UUO)* 


*  XJ(3on)iX92(4pQ),Ai2(4uu),XN3(  980  ),X13t*00),X»i4(i3u>,Xi4(l!>0), 

*  Xp5(2|iOU).Xl5(200U)«XM!J(4iiO),Xlfi(400),x47(100U)iXi/UOUO;. 

*  X"8  <  350  > ,  yl8(35n  )  >  xp9(<K)0  )  ,  xl9(4O0  )  #  X^  JT  ^00  >  ,FtM{pX2)  ,  X'  (&12) 
DIMENSION  *T<5n>.EM22G).Fl<‘>12)  tF2<3l2> 

Complex  f t ( 2 , 51 2 )  *  o 

DATA  LFjL/iO»8/ 

DATA  M  «SIQ, ms, '1N.MA/&.45, 40,20/ 

DATA  NF ,  >\'S a,  NRF  ,  N A/  91,81,41/ 

b  =  r>j  y  •  qF  T  E"  k  m  F  T  I  r>j  P  U  T  S I  j  rv  A  ^  S  2*mSIG+1 

D«Ta  Ai>A3iAA,A3JAV,AO/i,2fl4,2.525i1ilO»5.64,7.o7<y,lj// 

NbdsNtj,  Op  TERMS  IN  OS*  FILTER  a  2*MS+1 
(vMFsNU.  OF  t£w^S  In  rE'j  FILTER  =  2*MW+1 
•\'As>vO,  OF  TeRM<?  IN  ANALOG  FILTER  =  2‘Ma*1 


DaTa  F7S»F7. R#FZA/»4266»  *1238,  •  n  3 1 2  / 

DATA  S0N/j_o,A3/ 

D Aj A  Cf/0,f/ 

DATA  ftt  PH  a,  dET  A,  H/U.u,0,t>l7 ,3. 92/ 

c  ALpri a  -  prfdistor riON  LOEFiCitra 

O  Rt T a  -  MODULATION  I\ipE* 

FI  =  3.1A139?6(> 

CCAlCuLATL  TAP  wflGMls 
pi)  5<j  Ttl ,  mS 
Fiel 

L'l"  a  •54+*4a*^'^F^PI,,FI  / 4(ji  ) 

ImSbmS+1 *1 

L3SH(iNS)  =  ,ilN,RlN(rzS*Hl,F'I)/(Pl*FI*Fz5) 
CALL  RN^(  wfSr(  IMS  )  •  1 , 0,  lF  ) 

jMSs^b+l"I 

5‘i  WirFd  1M5  ) 

LSSp  (  mS*i  )  -1*.  Q 

CALL  WNi,(W4Se»<M5  +  l>»l,0»LF> 

FMRbMk 

DO  6*J  Ial'yR 
F  Is  I 

^«T-54-*t-r4-4-4eOS^)H*FI/FMW) 


-  -WKEPMMR>sa^SlN("IH*Pl*FI)/(PI*FI*FZ4) 
CALL  RND(WREP(IvIR)*1,0#lF  ) 

-  -JMRaMK  +  l*I 
6  U  WHFP( jMR)s JRFP(1MR> 

- 4-.-0— 

CALL  RvD(WREp{M«*l),l,0,LF) 

FMA.MA 

DO  7u  I*i, mA 
FI*I 

KlN»,54t,4A*CDs(pI*FI/FMA) 


AnLOGCImA)«wIn*SIn<> ZA*pI*FI>/(Pl*FI*FZA> 
JMAiMA*!  *  I 
ANLOG( JMA)SANL0U(IMA) 

7  0  COntI-iVuE 

ANLOG(MA*l)«l»n 
_ Aj*4 _ 

DO  75  Ill, MS 
FI«I 
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WlNa154+,4^*nOS(Pl<‘Fl/5.l|  ) 

A  s»A 

DIF (IMS)bwtN*a/FI 

-e«t'L  -*ND <  Dffl  IM S  > ,  1 . 0 ,  L F  > 

JMSaMS-t-i^X 

■^5  DfF-fjns 

DIF  (  MS  +  1  )  So  ,  0  . 

C  t©AlH h'-n-ftCENr  RC  RULR£ 

A=8,o+PI/ls,n 
DO  80  Is1»mSIQ 
IhSI'jsmSIG  +  i  +  I 

PI*! -  - - -  .  _  _ 

'  A*FI*  -  ^■.I'nTIT.r.TTTT 

JMSIGsvsIG  +  1.1  “  - 

-  XtjnSifttaK  f 

X(MS1G  +  I)*i  ,0  . . 

-e-ALL  ,  o*  /■» — — - 

XMAXsl.O 

•00- ^-Tprl  i^O- 

DU  9j  1*1, il  "  . 

i  o®x  *0-1 -  . 

x  r  (U )  sx  ( i )  *\j  ( u ) 

-if  (  XT  (-loOTTfT-JfrfA-X-*-  XKA*xX TftU  - - 

DO  9^  181,50 

oTT}’*’Cr*'XT  TO7 rx  M  A  *-*  ,  6*5t  -  -  .  . _  _ _ 

Pk;iVT  96,  (  y(  I )  ,  lal,  42  1 

FOKfrAttl+U-  i-*HlNPUI  viAVt  FORM  /MOflO  i))  _  - 

DO  110  1*1,  \|S  ' 


8« 


— ^ - 

-  -<5jj - 

— -vhj 


tid — **Ti)=x(xr 
C  CONVOLVE  Wtjh  rjRST  FItT£R 

- DO  li.-2-l-n-.fVR 

c  SHIFT  all  TElrtMq  ev  NS8 

MSi-TrXfS^l-Trl - 

MSBIaNSB+NSrI 

~X^T*rS8-I )  ■  x  9  - 

V  T  /  K.  O  T  t  . 


112 


113 


XI ( NSSI >  sXI ( NSI ) 

TvS01'*1VSt*1 - 

DO  113  I=l,VSdl 

x-*ti-)-o,o- 

Xl(I)*0,0 
Amr-OF-i^TIttR-OOt  OF~fTR-Sl-PI  trT-RO- 
NFafoSB  +  fyii-i 
OO  ifS  I*lvNF 
DO  114  j»1,ms3 
'I0*l'*,0‘-1  — 

XR2(l|oXR2(I >»WSSB(U)»XR(IJ) 


— 1H  ^"1 2  ( I )  o ij  ,  Q  -  -  - 

CALL  HND { Xr2 ( I ) , Ai,  l ) 

no-  -  OALV  *NDl  xr2rl ) ,  A 1 ,  L  t 

•PRINT  n6 

116  F°RM  °UT  0F  Fl-Tg«  > 
r>c  rr  13*  (xS2<I),Ial,NF) 
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-e—S+iIFT  AIL  T£KMp  py  NRF 
NFI^NF+i-I 
NRFIsNPF*Nr«I 
.Xl2(-MRFI)syI?<MFD 
150  XR?(wKFX)syR?(,\jFl) 

ImkF  j  aNRp.j 

I*1,NRF1 
XR2 ( I  )*0  »  0 
16U  XI? ( I ) cO  «  Q 
C  CALCULATE  120  <C  OUTpUl 
0  =  0 

DO  170  Li =i ,NF 

-  —  - Dir  17  0  i<«l »  8 

J  =  J  +  1 

PO  3.7  0  ial,ll 

LTsLl«j+92 

KIt8*(T#1)4.K 

XI3(  J)0Xl3(  J)  +  wREP(KI)*XJ12(lT) 


C  J  IS  NUMBER  OF  OUTpJT  SAMPLES  from  R£R  FILTER 
K2  =  J 

DO  180  Iol,i<? 

180  CALL  RnDCXr3(I > # A3/ l * 

C  Fh  modulaToh 

- - -DO 18  & -tHt-K? - — - - 


185 


X 1 3  ( I )  a  0  •  0 
XHPrXrt3(I)*r&ET-AVW 

XF(I)»yHF 

■GQwTl-lvU£ 

DO  186  I31 , K? 
-Ftt- 


+XtiF- 


XK3(I)sCS(yF(I)#tf  >♦<  • 54*. 46*CqS( pi* < FI-480 i  >  /  4  8 1)  •  >  > 
1 8  6  *l3tl  >*S  NtXP  «  )f L F  )  *  (  ,  5-4  * ,  4  6  ♦  0  OS  ( PI*  (  F  IM  00  r )/ 48  8  i  f  > 
C  PUT  SIGNAL  THOUGH  INTtRPOLATlON  FUTER  And  SIMULATED 

C  ANALOG  F-ILtEk  •  '  -  -  .  •  - 

Kao 

- DO  190  3>1,K? 


DElI»(XI3(t*i>-Xi3(I) )/32,0 
-BEt Yf- 32  ^ 0- - 
DO  190  Jal , 3? 

-K-sK  +  1  -  ----  --  -  -  -  -  . 

KlcMOD(K»loO >*1 


C  K  -£S-X-P4-  INDS-X- 


C  Ki  IS  x«4  CyLlC  INDEx 

f  1  —  ■  -  -  ■  ~ 

XI4<K1  )«Xl3(I>*(FJ-l, )*DELX 

-  1*0&LR 

CALl  RND(Xr4(K1)»A4,l) 

- &AL-L-  ftN&-<-X  T-4-(  K44tA-4-»  L-  ) - 

IF(M0D(Kj15>  .£Q,0>  GO  TO  200 
.t9a---CQNT-lN0& 

GO  TO  ?2U 
200  CONltNyE 

C  CALCULATE  OUTPjT  OF  anALOG  filter 
-C  M  -I-S-  -X-R5  P*01X- - - - 


M«M*1 
DO  210  Lirl »NA 


NsHyl}{74  +  (M“1  )*16  +  H,  100)+1 
XXb(f'')=X15^)*AMLUb((.l)*Xl4(N) 

2  3  0  X«r>(  rt  M)  +  A\lOu(L1  )*XH4  (  N) 

go  ro  ioo 

220  -  CO.NU^tlE 

M15m/2+1 
h*2**r/b+l  - 
DU  2-<0  Is!  ,  'll 
i  »Ift(I)sXl5f 2*i-l) 

X NX  (  I  )  sx  (  2*2"!  ) 

26V,  COM  I  I'M  it 

DU  24a  1=1, M? 

-  -  -  K£7H  >«XI^f  5*I-4i 

240  XK7(I)sxN5(?*L-4) 

GO  TO  ?9l 

241  COMInIiE-  1 

P  XK7i  IS  IMPoT  To  FFT  TO  LOOK  AT  OUTPUT  SPECTRUM-  OF  TRAMifli-H  fe-R- 
C  XH6  j$  jOPUT  To  P£CtlVt^ 

--C— A-UD  W>I$tr-**0-  c-tfFT  8Y  '»RF-b  ,  - - 

FM1  s^Ml 

DO  24R-I*1,M  ,  -  -  ■ 

24°  Xb‘=XS  +  yoMT)*XR6<lJ,!,xI6lI)*Xl6(I> 

yUMr'jORi  (  Xe;/F^j  ) 

DU  2  V)  I  a  1 ,  Ml  , 

— - — ' — OA  LL  i ,  So^-i  SUM  ) 

2r=zT+7*2  , 

-er-'I 

*I' 

X^A<  jM')5-XRa(IM)+7 
1  CALL  3AUSSrZ,3p,-,,S0\|) 

—  - - -2-T-=z  T  -»-7Tf-2-  -  -  - 

'  Xl^(JM)axi<(iM)+Z 

-2-!>*  i 

1F(2T.FO,0. >  GO  TO  251 
-----  S-OsltF»  0*ALoOlO<  XR/2  T  ) 

25 1  CON-T  InL'F 

-€— trrSfrA f  GO&5-ltntr -HfRg-T l  T  JON  FxultK  STEPS  3F  6  INPUT-  sAMPvtS- 
C  OUTPUT  IS  at  is  KC 

‘  T - '-WScIVRF  -9- 

DO  2*0  1=1, MR 
XP6  (  £  )  trG  ,  0 
26U  Xl6 ( I ) =0 • 0 

--e-^-AtpUtTM^-OU'FP-rT  -of  REUEiVER  *EPt  TlfUJN-  FILTER'  - 

R3*Ml/8«-l 
r  DU  2*0 

DO  270  Ll  =  l 
tK°LH«P*,<K-l  ) 

NL=NhF+1"Li 

- -Xi^-(H-)-n4Cf^-(  ity-*wRgP4  NL  )  ♦  *  J-g  (fK  >  . . 

2/0  XRR{K)=XR8(K)*kREP(\L)*XW6(LK ) 

CAtL  HNDfXPSrKI,  48,  L) 

280  CALL  KNp(XT&(K>, a8»L> 

PRINT  13, ( vRfi  < I ) 1 1°1 #  M3 ) 

PRINT  13' <XlR<I)iI«l*M3) 

- OU-2*l  -i-n  ,-H3  -  - 

N1bNS8  +  |<13-t 
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XHP{nI)3XHb{mI) 

281 

MX=nSb-1 
DU  ?82  1=1, NX 
X  K  8  {  I )  e  0  ,  0 
202  X  J.P  ( I )  =0  •  0 

DU  283  1  =  1,  *14 
DU  2h4  jr^.NSd 

K-  j  =  .M  S  U  v  i  ,„j 

I J  =  I  +  J  •  ! 

X  «  ^  (i  )  sxw*(  £  )  +DIF  <  f*  J  )  ♦Xrf#  <XJ  ) 

204  X19{nsXl9(I)+nIF(-W>*XlO<lU) 

CALL  Kf\:D*XP9<X)<  A9'L) 

263  CAll  K^^(XT9fi),A9»L» 

C  Fh  uErfOoW-i.  n’K 

Du  290  1=1, H4 
I M  S  8  M  &  ♦  I 

A=Xl«flMS)+XR9(l) 

CALL  KND(A,AO<LF) 
t<=yRP(IM5)*XTvU> 

CAd  kND(B,  A9#LFi 
Fs  Xn« ( IMS  )  *  *? 

Call  R  M  D  ( p  ,  A  9 »  l  ^  ) 

CALL  «Md<0, A9,LF) 

E»F  +  D 
El(I)sF 

XF(t*LT'6»5)  £  =  1 1  0 
290  XB9(i)c(b-A>/t 

PWI«T--j3r(ritI)lIsl,M4) 

F  M  4  a  8  4 

DO  293  1*1, M* 

293  ETsET  +  Eld) 

EA*gT/FM4 

PQ^29A  Ial.MA  ^ 

S  M  s  S  M  /  F  ,m  4 
PRIW*  1 2 

12  FO«mAT(1HO,2AHWAVE  form  OUT  OF  FM  D£MOD  ) 
P«INT  13» ( X^9< I ) i I  =  l»  M4 ) 

19  FORMA  r ( lH  ,  1 0 F 1 2 , 3 ; 

- &0.--g94-  -£*lr#4 

M1SM4+1-I 
A»I-fVS8+M4-T 
2y6  XK9(-MI)»XK0(MI) 

-DO  297  I«i,  AfX 
297  XK9a,,c  Q 

RRINT  13,<xR9(I),I*1,M5) 

P«I(VT  l3,WqSR 
DO  299  1=1, M5 
XOUT < I >*0 »  n 
DO  298  j«l,NRd 

- - . 

296  XOuTJDaXOjTr  D+wSSjJf  J)*XR9{  JJ) 

299  CONTINUE 
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—  >  #-*»!»  M*) 

GO  TC  341 


-G  -  . - 

c  this  section  Calculates  and  prints  out  spectrum  o'- 

-  -€-  T  H-A  NS-HI  T-T-i'-F-  -A  Nrr  OuT?U  T 

c  transmitter  output 

—&9i - ^-e^t-I-NuE . . . 

DU  300  I s 1 • M ? 


-3-0-0 - -P-r-tl_i'H'eC-M»L^<  XR7  C  -0 )  ,  X I  ?  ( 1 )  ) 

CALL  FFTfFTiS-l,  ) 

- DO  310  Iel-,$J2 

GsCARS(FT(  ?iD) 

- I-F  rO0O5i 

310  FTM(i)B2C.a*ALOGlO(6) 

BsFTM<1)- 
DO  315  1*1,512 
---34-5-  -  f-T-MT  I  )tF  Tm-j  Il-ft- 
PRInT  320 


-3*tr— 


B5-  -  AF-T-fcft- 


S^PC=  48U0n  ,0/512.0 

- Ftfi-NT-  350-,-  S^Pf  -  -  - 

330  FQrtMA  T  ( lw  ,16hS4mPlE  SPACING  -  ,F10,4> 
- DO  340  Xn.in3 


USI-1 

- 

Cl=FJ*5, 0*s*MPC 

Kl-r5-*U+j 


K2*Kl+4 

- P-rfi-NT-  3-5 1)>  -  Ct,  (FTM<K3)»K*«K1,K2) 

350  F0PMAT(1H  , ( AFl2 ,2) ) 

-34H - CONTINUE - -  -  -  -  -  -  - 


GO  TO  ?41 


--G- 

341  CONTINUE 
-C-Pfc-CEl^E^  OtfTPUT  -  - 
DO  360  I«l,5l2 

~3'6  0 - F-T  (  r-j  I )  vC  M  at,  K-ftrnr  ) - 

DO  370  1*1. M5 

-57D - F-TTi--Ii»C-HnyT XCUT <I>,0,  > 

•i.)  " 


- -{H)-^0  in.  912- 

Fl(I)»CAbS(FT(2,t) J 

- T-P-rF-t  CD  rbTT'P".  OOO  mitt—  - 

38C  FTM(I)*20,ft«ALOG10(Fl(I)> 

- fl  a-F-T-HRl-)  -  -  - 

BlsFKl) 


- 4>o-5ei-  in-,  h 2 


Fi(I)«Fl(I)/Bl 

-3*1 - r^TX~^rTM7l)"H - -  — -  —  - 

SMPC*15000 ./512, 

- -ptfi-NT  335-  - 


385  FORMAT(1H1,30HRECEAVER  OUTPUT  SPECTRUM  IV  0B  ) 
- PRIVT  3^0 

390  FORMAT ( 1H  .16HSAMPUE  SPACING  s  *F10,«> 

- DO  400  Irrtrg? - - -  -  -  -  - — 

J»I»1 

f  jxj 
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CIsFJ+S.tf+^MPC 

Kl=5+J+1 

K2=K1 

400  P K I N T  350»?I, <FfM{K3)#K3aKl#K2) 

PrtU-T  qOO,  (XnUT<I)>lsl»Mt>) 

9 u 0  POKmAT(iH0(2?HtImE  RESPONSE  0^  OUTPUT  /UUFl2.3>> 

-  -  PKXnt  a 25  - 

425  FOPMAT(1H0,44HSIGNaL  TO  NOISE  RATIO  AT  ivPJT  10  He OlIVER  3  ,F10.2 

*  ,3H  OB  ) 

C 

HEAD  435i 
DU  426  I31t8,159 
- £*2»E-tt?4-P2rn*r2  a> 

426  EHsfrH+aOUT(  J)-F2(i)  >**2 
SGAtlO.O#A_OGlO(ER-«!/ER) 

PHInT  427, q3A 

427  FOHmat(ihO,2?HSIGNAu  TO  NOISE  POWER  OUT  »  |H0,«J#4H  0*  ) 

435  FORmat(10F«,5) 

-999 — e-tmr-fwtte - -  --  -  ---  — . . . . 

STOP 

End 
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-55,74 
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0.99 
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•32.30 
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.27.38 
•32.08 
.30,24 
.34,72 
•42.24 
•447  82 
.55.98 
.47.18 
.52.91 
•62,33 
.57.48 
--•46t94 
.47,97 
•59.18 
.61.36 
•52,71 
•51.82 
»61t2* 


.69.27 

•  53.43 
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-.8878*- 
•51.93 
-.65v94 
.55.73 
.»5r8J 
.54,62 
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•*tr*3- 
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•H,M 

•41,02 
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-•65,86  - 
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•42.13 
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- «*98t88 - 

229*8,75 

- -*1,46— 

.55,03 

■  — -6«,8t - 

■6J,12 

.64,90 

•47,94 

,.68,44 

- 2*4-37.59 - 
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-  -•**,*9 
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.44,49 - 

-  _ 
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•  li 
•4*r*3- 
•54,03 
-.51  tt*  - 
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.78, *0 

•78, *0 
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SECTION  VIII 


TRANSCEIVER  BREADBOARD 


The  algorithms  mod/demod  breadboard  is  a  scale  model  of  a  full- 
duplex  digital  transceiver.  The  design  philosophy  of  the  breadboard  was 
to  scale  down  the  speed  of  operation  of  the  transceiver  and  not  to  curtail  the 
modes  of  operation  or  flexibility  of  the  breadboard.  This  facilitates  the 
testing  of  any  possible  transceiver  configuration,  which  might  be  chosen  for 
the  full-scale  brassboard. 

The  speed  of  operation  of  :he  breadboard  was  chosen  to  be  one  one- 
hundredth  of  the  full  scale  transceiver.  This  allows  an  off-the-shelf  com¬ 
mercial  mini-processor,  the  Data  General  Supernova,  to  implement  the 
full-duplex  transceiver  and  several  testing  routines  simultaneously.  This 
represents  a  considerable  reduction  in  cost  over  designing  a  special  purpose 
pipeline  processor  which  would  be  required  to  implement  a  full-scale  trans¬ 
ceiver.  In  addition,  the  serial  processing,  stored  program  organization 
of  the  Supernova  and  a  special  signal  processing  macro -language  developed 
by  Philco-Ford  facilitates  easy  modification  of  the  implemented  transceiver. 

The  hundred  to  one  reduction  in  operating  speed  implies  that  all  of 
the  signal  frequencies  associated  with  the  implemented  transceiver  are 
reduced  by  a  factor  of  one  hundred.  I.  e. ,  instead  of  a  300  to  3000  hertz 
audio  modulation  passband,  the  breadboard  has  a  3  to  30  hertz  modulation 
passband.  Likewise,  the  breadboard's  80  bit  per  second  digital  signal 
transmission  rate  represents  an  8000  bit  per  second  rate  on  the  full-scale 
transceiver. 

The  radio  frequency  signal  generated  by  the  breadboard  transmitter 
and  received  by  the  breadboard  receiver  is  centered  about  a  fixed  2000  hertz 
frequency.  This  was  chosen  for  several  reasons.  First,  since  the  digital 
frequency  synthesis  techniques,  necessary  for  variable  frequency  operation, 
are  well  known  by  now,  it  was  not  felt  that  this  feature  need  be  demonstrated 
to  prove  the  feasibility  of  the  digital  transceiver.  Second,  the  scaled  radio 
frequency  signal  was  centered  in  the  upper  audio  frequency  region  so  that 
conventional  narrowband  audio  channel  test  and  simulation  equipment  could 
be  used  to  simulate  the  radio  frequency  channel  between  the  transmitter  and 
receiver. 

Most  of  the  controls  and  terminals  on  the  transceiver  control  panel 
are  self  explanatory.  The  power  switch  on  this  panel  controls  power  for 
all  of  the  equipment  associated  with  the  breadboard,  and  should  be  the  only 
switch  used  to  shutdown  the  equipment.  The  analog  modulation  and  radio 
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frequency  inputs  and  outputs  have  100K  ohm  and  600  ohm  input  and  output 
impedances  respectively.  Their  peak  unload  output  and  input  signal  handling 
capacity  is  +  10  volts.  The  sampled  data  output  is  the  same  signal  as  the 
receiver  modulation  signal  output  before  it  has  passed  through  the  final 
analog  low  pass  filter.  This  signal  has  the  repetitive  spectrum  of  an 
unfiltered  sampled  signal,  but  does  not  have  any  delay  or  amplitude  distortions 
which  are  introduced  by  the  analog  low  pass  filter.  The  digital  input,  output, 
and  clock  ports  meet  standard  188B  specifications,  with  the  exception  that 
the  input  circuit  has  no  hysteresis.  It  tends  to  interrupt  an  open  input 
circuit  as  a  random  sequence  of  marks  and  spaces.  The  rise  and  fall 
times  of  the  digital  outputs  are  25  micro -seconds.  The  function  of  the  mode 
control  switches  will  be  discussed  later. 

During  normal  transceiver  operation,  the  teletype  unit  is  not  needed 
(it  may  be  disconnected  from  the  system)  and  the  controls  of  the  Supernova 
processor  are  not  used.  The  Supernova  processor  should  be  left  in  the 
locked  mode,  that  is  the  control  key  removed.  However,  these  facilities 
may  be  used  to  reload  or  modify  the  transceiver  program. 

To  reload  the  transceiver  program,  the  memory  dump  tape  should  be 
placed  in  the  teletype  tape  reader,  the  1  ipe  reader  control  switch  thrown  to 
"start",  and  the  teletype  control  switch  thrown  to  "line".  The  Supernova 
control  key  should  be  inserted  and  thrown  to  the  "on"  position;  this  activates 
the  processor  control  panel  switches.  All  data  input  switches  should  be 
thrown  down,  and  the  bit  12  switch  thrown  up.  The  "reset"  and  "program 
load"  switches  should  be  pressed  in  that  order  to  start  reading  in  the 
program.  After  reading  in  the  binary  loader  the  paper  ta^e  reader  will 
stop.  The  "continue"  switch  should  be  pressed  to  read  in  the  transceiver 
program.  After  the  tape  is  finished  reading  the  transceiver  program  will 
automatically  restart. 

To  modify  the  program,  the  facilities  of  the  Data  General  Debug  III 
program  are  best  used.  To  enter  this  program,  the  data  switches  ai*c  set 
to  octal  200,  the  "stop"  and  "start"  switches  are  pressed  in  that  order. 

To  restart  the  transceiver  program,  location  2  is  executed.  After  mod¬ 
ification  or  reloading  the  transceiver  program,  the  processor  should  be 
relocked. 

During  switching  the  transceiver  mode  of  operation  between  frequency 
modulation  and  amplitude  modulation  or  single -sideband  modulation,  switch¬ 
ing  transients  sometimes  give  the  Supernova  processor  a  larger  task  than 
it  can  perform  in  real  time.  Under  this  condition  the  transceiver  system 
halts  operation.  (If  the  teletype  unit  is  runing  it  will  type  out  "****ERROR 
HALT;  REALTIME  PROGRAM  TIMEOUT".)  Operation  can  be  most  easily 
restarted  by  switching  the  transceiver  mode  control  switches  to  an  easier 
task,  and  cycling  the  power  switch  "off"  and  "on".  (If  the  teletype  unit  is 
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running  it  will  type  out  "SYSTEM  RESTARTING".  ) 


The  possible  modes  of  operation  of  the  breadboard  are  as  follows: 

In  mode  A1  no  digital  signal  processing  takes  place.  This  mode  is  used 
for  testing  the  analog  to  digital  interface  and  is  to  be  used  as  a  reference 
when  making  tests  on  the  digital  signal  processing.  Modes  A2  through  A4 
test  the  various  digital  filters  used  in  the  transceiver  by  placing  them 
between  the  transmitter  modulation  input  and  r  iceiver  output  ports. 

Modes  B1  through  B4  implement  frequency  modulation  operation. 

Mode  B4  implements  the  complete  frequency  modulation  transceiver.  Mode 
B3  is  the  same  except  the  3  to  30  Hz  modulation  signal  bandpass  filters  are 
removed.  Mode  B1  and  B2  have  the  interpolation  filters  removed  also. 

In  mode  Bl,  a  phase  modulation  receiver  is  implemented  in  place  of  the 
frequency  modulation  receiver  in  the  other  modes.  The  transmitter  still 
implements  frequency  modulation. 

Modes  Cl  through  C4  implement  various  amplitude  modulations.  In 
modes  Cl  and  C2  amplitude  modulation  is  implemented  in  the  transmitter. 

In  mode  C3  upper -sideband  and  in  mode  C4  lower -sideband  single -sideband 
modulation  is  implemented.  Upper -sideband  reception  is  implemented  in 
modes  Cl  and  C3,  and  lower -sideband  reception  is  implemented  in  modes 
C2  and  C4. 

Frequency  shift  keying  digital  modulation  is  implementeed  in  modes 
D3  and  D4.  In  mode  D3  the  digital  input  is  replaced  with  a  pseudo-random 
sequence  generator,  and  a  decoder  is  placed  on  the  output  of  the  receiver. 

The  signal  is  so  decoded  that  a  continual  space  output  represents  error  free 
transmission,  and  a  mark  bit  represent  an  error. 

The  frequency  response  of  various  digital  filters  used  in  the  trans¬ 
ceiver  were  measured  and  found  to  have  the  response  shown  in  figure  44. 

The  13.  5  Hz  low  pass  filter  (mode  A2)  is  the  filter  used  to  obtain  the 
selectivity  in  single -sideband  reception,  and  its  response  represents  the 
selectivity  of  the  digital  single-sideband  receiver.  The  bandpass  filter 
(mode  A3)  and  resampling  filter  (mode  A4)  responses  were  measured  with 
them  operating  at  one -half  their  normal  sampling  rate.  The  frequency  scale 
must  be  doubled  to  obtain  their  normal  response  curve. 

Figure  45  shows  the  response  of  the  frequency  modulation  transceiver 
(mode  B4)  back-to-back.  Note  that  non-complementary  pre-  and  de-emphasis 
causes  a  4db  drop  in  the  high  frequency  response. 

Signal-to-noise  performance  tests  were  made  in  all  modes  of  operation. 
For  linear  modulation  the  signal-to-noise  p  rformance  can  be  characterize 
by  the  apparent  noise  bandwidth  of  the  receiver.  This  was  found  to  be 
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SSB  Lowpass  Filter 

AM/FM  Filter  at  1  / 2  sampling  rate 

Resampling  Filter  at  1  /2  sampling  rate 


-146- 


Figure  44:  Measured  Response  of  Breadboard  Digital  Filters 
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Figure  45:  Overall  FM  Response  (Transmitter  and  Receiver) 


I 


approximately  32  Hertz  (measured  in  mode  C4).  The  frequency  modulation 
(mode  B4)  noise  quieting  curve  is  shown  in  figure  46.  The  digital  trans¬ 
mission  error  rate  versus  noise  power  density  curve  is  shown  in  figure 
47.  Note  that  this  measurement  was  made  in  mode  D3  where  the  pseudo¬ 
random  sequence  decoder  produces  a  3  to  1, increase  in  measured  errors 
above  actual  errors  at  low  error  rates. 


1 
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SECTION  IX 


CONCLUSIONS  AND  RECOMMENDATIONS 
1.  CONCLUSIONS 


The  Digital  Transceiver  system  configuration  that  took  shape  as  a 
result  of  this  effort  is  presented  with  a  minimum  of  technical  detail  in  the 
first  three  subsections  of  Section  II.  The  system  philosophy  can  be  under¬ 
stood  with  reference  to  figure  19,  in  Section  V.  Filtering  of  the  trans¬ 
mitted  signal  is  performed  at  baseband.  Since  the  filter  requirements  can 
be  severe,  complexity  is  minimized  by  performing  this  filtering  at  the 
lowest  possible  sampling  rate.  The  resampling  filter  has  less  stringent 
requirements  and  can  operate  at  a  higher  output  sampling  rate.  The  inter¬ 
polation  filter  is  extremely  simple  and  can  be  used  to  bring  the  sampling 
rate  up  to  a  value  required  for  translation  to  I.  F.  The  actual  sampling 
rates  required  for  adequate  suppression  of  spectral  repeats  are  derived 
in  Section  II. 4.  Section  II  thus  provides  a  feasible,  minimum  complexity, 
overall  transceiver  system  design. 

It  is  readily  seen  that  digital  filtering  accounts  for  the  major  portion 
of  the  transceiver.  Consequently,  a  major  effort  of  the  piogram  was 
directed  toward  efficient  filtering  algorithms.  Section  III  is  a  comprehensive 
survey  of  all  available  methods  for  the  design  of  realizable  linear  phase 
digital  filters.  The  method  described  in  Section  III.  6  was  developed  as  a 
rapid  technique  for  designing  the  many  filters  required  for  the  breadboard. 
For  the  final  design  of  a  production  item,  we  would  recommend  the  more 
cumbersome  Hofstetter  algorithm  described  in  Section  III.  4,  since  it 
results  in  an  optimum  (minimum  complexity)  filter  design. 

A  more  detailed  discussion  of  digital  filtering  specifically  applied 
to  the  digital  transceiver,  is  given  in  Section  VI.  The  requirements  of 
accuracy,  complexity,  and  linear  phase  (zero  differential  delay)  lead  to  the 
choice  of  a  non-recursive  (convolutional)  implementation  for  the  sideband 
filters  and  a  recursive  implementation  for  the  interpolation  filter.  The 
design  of  the  latter  appears  in  Section  il.  4,  the  design  of  all  the  others 
are  given  in  Section  VI.  2  along  with  frequency  responses.  Section  VI.  2 
also  contains  the  interactive  filter  design  computer  program. 

Since  digital  differentiation  is  required  for  F.  M.  receiver  oper¬ 
ation,  this  topic  is  discussed  in  Section  VI.  3.  A  brilliantly  efficient 
method  was  recently  developed  by  Rabiner  and  Steiglitz(25)  on  the  basis 
of  a  frequency -domain  analysis.  The  time -domain  analysis  given  in 
Section  VI.  5>  gives  a  more  penetrating  insight  into  the  efficiency  of  their 
method.  In  addition,  this  analysis  provides  the  required  impulse  response 
directly. 


-151- 


The  receiver  bandpass  sampler  in  figure  19  is  meant  to  extract  the 
complex  low -pass  equivalent  signal  by  proper  sampling  of  the  bandpass 
received  signal.  If  the  narrowband  approximation  holds;  this  can  be 
achieved  by  a  pair  of  analog  to  digital  converters  operating  a  quarter  of  a 
carrier  cycle  apart  at  a  rate  consistent  with  the  signal  bandwidth.  Dickey^ 9) 
has  recently  considered  a  method  for  improving  the  sampler  performance 
for  the  case  when  the  narrowband  approximation  is  not  valid.  His  method, 
however,  requires  the  use  of  three  or  more  A/D  convertors.  This  prob¬ 
lem  is  analyzed  in  Section  IV,  and  a  new  method  that  does  not  require 
additional  A/D  converters,  is  derived. 

Section  \  may  be  considered  a  mathematical  appendix  for  Section  II. 
Extensive  computer  simulations  were  performed  and  are  documented  in 
Section  VII.  These  simulations  were  instrumental  in  revising  the  system 
design  to  the  version  discussed  in  the  rest  of  the  report.  They  proved  the 
feasibility  of  the  digital  transceiver,  while  pointing  out  that  more  than  eight 
bit  precision  need  be  carried  through  the  various  transceiver  algorithms. 

The  transceiver  breadboard,  described  in  Section  VIII,  represents 
the  culmination  of  our  efforts  in  digital  equivalence.  By  turning  switches 
on  the  front  panel,  any  of  several  modes  of  analog  or  digital  modulation 
can  be  implemented.  Furthermore,  additional  modes  of  modulation  and 
demodulation  (analog  or  digital)  can  be  added  to  the  program  as  they  are 
invented.  A  full  scale  digital  transceiver  would  utilize  a  special  purpose 
processor  to  perform  (at  one  hundred  times  the  speed)  the  same  compu¬ 
tations  that  the  general  purpose  processor  performs  in  the  breadboard. 

Thus,  the  feasibility  of  the  digital  transceiver  has  been  proved  and 
efficient  system  configurations  and  processing  algorithms  have  been 
developed.  Advantages  of  digital  processing  include  stability  (nothing  can 
age  on  drift),  size  (through  LSI),  programmability  (characteristics  may  be 
changed  by  plugging  in  a  new  read -only -memory),  commonality  (the  same 
processor  is  an  AM  transmitter  or  an  FM  receiver)  and  the  ability  to 
achieve  filter  characteristics  that  are  impossible  with  analog  devices. 

2.  RECOMMENDATIONS 

Ir  view  of  the  foregoing  conclusions,  and  of  continuing  advances  in 
digital  integraded  circuit  technology,  it  is  now  feasible  to  build  a  real 
time  digital  processor  for  communication  signals.  It  is  therefore  recom¬ 
mended  that  a  full-scale  experimental  model  Multimode  Digital  Processing 
Transceiver  be  designed,  fabricated,  and  field  tested  in  conjunction  with 
available  HF-SSB,  VHF-FM,  and  YHF-AM  tactical  transceivers. 

Two  experimental  models  should  be  built  to  be  tested  in  conjunction 
with  existing  analog  transceivers  for  voice  and  CW,  and  with  each  other  for 
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digital  data  transmission  via  HF  and  ,VHF.  Digital  modulations  should 
include  phase  shift  keying  (including  differentially  coherent  PSK),  frequency 
shift  keying,  and  digital  data  transmission  via  single  sideband  (including 
partial  response  SSB  and  carrier  injection. 

I 

i 

In  addition,  an  L.  S.  I.  investigation  should  be  undertaken  so  that  the 
potential  weight,  size,  and  power  advantages  cf  Large  Scale  Integration 
may  be  subsequently  realized.  This  investigation  should  include: 

Selecting  an  LSI  fabrication  technology  (MOS,  bipolar,  etc.)  with 
characteristics  capable  of  implementing  system  requirements. 

i 

Formulating  a  packaging  scheme  compatible  with  the  fabrication 
technology. 

Structuring  the  system  such  that  it  is  compatible  with  the  fabri¬ 
cation  and  packaging  technology.  : 

i 

Partitioning  the  logic  into  LSI  blocks  to  maximize  the  ratio 
between  the  number  of  logic  gates  per  chip  and  the  number  of 
input /output  leads  required. 

Evaluating  the  resulting  system  in  terms  of  cost,  size,  weight, 
power,  reilability,  and  maintainability. 

It  is  further  recommended  that  a  study  be  initiated  to  investigate  the 
possibility  of  a  Universal  Signal  Processor  that  would  perform  vocoding, 
estimation,  channel  equalization,  synchronization,  error  detection  and 
correction,  and  encryption  in  addition  to  the  Digital  Transceiver  functions. 
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SUBROUTINES  FOR  TRANSCEIVER  BREADBOARD 
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•030030 

LDA 

2  9 

DECRE 

* GLENGTH  OPERATION 

00032 

•133000 

ADD 

1* 

2 

00033 

•050030 

STA 

2  9 

DECRE 

00034 

'026030 

CONT. : 

LDA 

1* 

©DECRE 

/DATA  SAMPLE 

00035 

•032020 

LDA 

2* 

0 INCRE 

; IMPULSE  RESPONSE  SAMPLE 

00036 

•136400 

SUB 

1* 

3 

;  COMPENSATE  FOR  IMPULSE 

00037 

•12700v 

ADD 

1* 

1 

/RESPONSE  SAMPLE  OFFSET 

00040 

•0733O1 

MUL 

/MULTIPLY 

00041 

•117000 

ADD 

0* 

3 

/ACCUMULATE 

00042 

•121000 

MOV 

1* 

0 

00043 

•014437 

DSZ 

GCOUNT 

/INCREMENT  IMPULSE 

/SAMPLE  COUNTER 

00044 

•000761 

JMP 

LOOP 

;IP  NOT  P INI  SHED  LOJP 

00045 

•161120 

MOVZL 

3* 

0 

/'MOVE  2*RESULT  TO  ACO 

00046 

•034432 

LDA 

3* 

RETURN 

;  RETURN 

00047 

•001402 

JMP 

2* 

3 

JCOMVI  IS  A  SUBROUTINE  TO  INSERT  A  N  EW  SAMPLE  I M  THE 
J  DATA  STORAGE  VECTOR  WITHOUT  I  MPLF.MENTI  N  G  A  CONVOLUTION. 
;IT  IS  USED  WHEN  THE  FILTER  OUTPUT  SAMPLING  RATE  IS  LESS 
/THAN  THE  INPUT  SAMPLING  RATE.  THE  CALLING  SEQUENCE  IS 
;THE  SAME  AS  THAT  OF  CON  VO  .  XCEPT  THE  In .  f  POINT  IS 
;@C0iNVI.  CONVI  REQUIRES  NO  INITIALIZATION*  DESTROYS  ALL 
JACCUMULATORS/  AND  MAY  BE  INTERUPTED.  SUPERNOVA  CORE 
i EXECUTION  TI ME= 16.0  USEC.S 
ITOTAL  LENGTH® 1 3*  LOCATIONS 


00050' 103240  ENT3: 

ADDOR 

0/  0 

; CONVERT  DATA  SAMPLE 

;to  EXCESS 

2 1 1 5  CODE 

00051  M01620 

INCZR 

0/  0 

; DIVIDE  BY 

2  A  ROUND 

1 

►— 

<-n 

vO 

i 
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00052  '033401 

LLA 

2* 

ei*  3 

;BATA  BLOCK  POINTER 

00053  '041000 

STA 

0* 

0*  2 

J INSERT  NEW  SAMPLE 

00054*151400 

INC 

2* 

2 

1  INCREMENT  POINTER 

00055*023400 

LDA 

0* 

90*  3 

J FILTER  IMPULSE  RESPONSE 
JLENCTH 

00056  '02540 1 

LDA 

1* 

1*  3 

*  STARTI  NG  LOCATI ON- 1 
;0F  DATA  BLOCK 

00057 ’ 107000 

ADD 

0* 

1 

; IMPLEMENT  MODULO 

00060*146512 

SUBL# 

2 1 

1*  szc 

1 GLENGTH 

00061 '112400 

SUB 

0* 

2 

00062*053401 

STA 

2* 

01*  3 

i SAVE  NEW  DATA  BLOCK 
*POI NTER 

00063*001402 

JMP 

2* 

3 

; RETURN 

;CONVE  IS  A  SUBROUTINE  TO  IMPLEMENT  A  CONVOLUTION 

*  Iv I THOUT  INSERTING  A  NEW  DATA  SAMPLE.  IT  IS  USED  WHEN 
* THE  FILTER  OUTPUT  SAMPLING  RATE  IS  GREATER  THAN  THE 

J INPUT  SAMPLING  RATE.  THE  CALLING  SEQUENCE  IS  THE  SAME 
1  AS  THAT  OF  CONVO  EXCEPT  THE  ENTRY  POINT  IS  @CONVE. 
;C0NVE  USES  SUBROUTINE  CONVO*  AND  EXCEPT  FOR  NO  DATA 
1  INPUT  IS  IDENTICAL  TO  THAT  '"'OUTINE.  SUPERNOVA  HARDWARE 
*MULT/DIV  EXECUTION  TIME=18. Y+ 1 7. 0* GLENGTH  USEC.S 

*  TOTAL  LENGTH=9.  LOCATIONS 


00064  '054414 
00065  *031400 

00066 '050020 


00067 '025000 

00070  '04441 1 
00071 '044411 

00072*035401 

00073  '031400 
00074  '050030 
00075 '172400 
00076 '050405 
00077*000724 

000001 

000001 

000001 

000001 

000020 

000001 

000030 

000001 


ENT4 :  ST A 

LDA 

STA 


LDA 

STA 

STA 

LDA 

LDA 

STA 

SUB 

STA 

JMP 

RETURN:  . BLK 
GLENGTH: .BLK 
GCOUNTI  .BLK 
DCOUNT:  .BLK 
.LOC 

INCRE:  .BLK 

.LOC 

DECRE:  .BLK 

.END 


3*  RETURN 
2*  0*  3 

2*  INCRE 


1*  0*  2 

1*  GLENGTH 
1*  GCOUNT 

3*  1*  3 

2*  0*  3 
2*  DECRE 
3*  2 

2*  DCOUNT 
ENT  2 

1 

1 

1 

1 

20 

1 

30 

1 


JSAVE  RETURN  ADDRESS 

*  STARTING  LOCATION  ’l 
;0F  IMPULSE  RESPONSE 
5INITIALIZE  AUTOINCRE- 

*  MEMTI MG  IMPULSE 

; RESPONSE  SAMPLE  POINTER 
I  FILTER  IMPULSE  RESPONSE 
; LENGTH 

JSAVE  IN  GLENGTH 
S INITIALIZE  IMPULSE 
; SAMPLE  POINTER 
J STARTING  LOCATION-1 

*  OF  DATA  BLOCK 
*DATA  BLOCK  POINTER 
;SET  AUTODECRE  DATA  PTR 
INITIALIZE  DATA  SAMPLE 
; COUNTER 

IJUMP  TO  &  FINISH  CONVO 

; RETURN  ADDRESS 
; IMPULSE  RESPONSE  LENGTH 
/IMPULSE  SAMPLE  COUNTER 

*  DATA  SAMPLE  COUNTER 

; AUTOINCREMENTING  IMP 
IRESPONSE  SAMPLE  POINTER 

* AUTODECREMENTING  DATA 
1  SAMPLE  POINTER 
; END  OF  CONVO*  'VI >&  'VE 
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CONJT. 

000034  * 

COM  VE 

000002- 

COM  VI 

000001- 

COMVO 

000000- 

DCOUM 

000103 ’ 

DECRE 

000030 

EMT1 

000000’ 

EMT2 

000023 ' 

EMT3 

000050’ 

EUT4 

000064’ 

GCOUM 

000102' 

GLEMG 

000101 ’ 

IbJCRE 

000020 

LOOP 

000025' 

RET  UR 

000100’ 

J  UUOl  V 
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i  . T1TL  COSIN 

ICOSIN  IS  A  SUBROUTINE  TO  CALCULATE  A  16  BIT  P’S 
j COMPLEMENT  SINE  AMD  COSIME  FUNCTION  FROM  A  16  PIT 
J2*PI*S  COMPLEMENT  RADI  AM  ANGLE.  THE  ANGLE  IS  PLACED 
;IN  ACO,  RANGE  C-PI,  PI).  COSINE  IS  RETURNED  IN  ACO, 
iSIME  IN  AC  1  j  RANGE!  (-1,  1).  AC2  AMD  AC3  APE 
J DESTROYED.  THE  GLOBAL  ENTRY  .POINT  IS  *COSIN.  THE 
; ROUTINE  IS  OPTIMIZED  FOR  SPEED,  MAY  PE  I  NT ERUPTED, 

,‘AND  REQUIRES  NO  INITIALIZATION.  AVERAGE  CORE 
J SUPERNOVA  HARDWARE  MULT/DI  V  EXECUTION  TIME=6«.6  USEC.S 
J TOTAL  LENGTH=125.  LOCATIONS 


OOOOO-OOOOOO* 

COSIN J 

.ENT 
.  ZREL 

COSIN 

ENTRY 

; ENTRY  LOCATION 

00000  *054464 

ENTRY! 

•  NREL 
STA 

3, 

RETURN 

} SAVE  RETURN  ADDRESS 

00001 *040464 

STA 

0, 

ANGLE, 

J  SAVE  ANGLE 

00002*101300 

MOVg 

0, 

0 

5  SHI  FT  MOST  SIGNIFICANT 

00003*024465 

LDA 

1, 

M77 

I  PITS  TO  RIGHT  BYTE 
j  SI  NE  TABLE  ADDRESS  MASK 

00004*030465 

LDA 

2, 

LSI  NT 

I  SINE  TA^LE  STARTING  LOC 

00005 '115000 

,  i 

MOV 

0, 

3 

S GENERATE  SIN  ADDRESS 

00006 ' 1 3  7400 

AND 

1, 

3 

i  EXTRA.T  ADDRESS 

00007*157000 

4DD 

2, 

3 

;add  offset 

00010*054456 

STA 

3, 

LSI  N 

} SAVEI N  LSI N 

00011  *114000 

COM 

0, 

3 

J GENERATE  COS  ADDRESS 

00012*137400 

AND 

1, 

3 

; EXTRACT  ADDRESS 

00013 ' 1 57000 

ADD 

2, 

3 

;add  offset 

00014*054453 

STA 

i 

3, 

LCOS 

;savf,  in  lcos 

000 1 5 ' 1 0 1 300 

MOVS 

0, 

0 

; RESTORE  LOV.ER  ANGLE 

00016*024454 

LDA 

1, 

M3  7  7 

;bits  to  right  byte 

; DELTA  ANCLE  MASK 

00017*030454 

LDA 

2  > 

PIB2 

52tl6*PI/4 

00020  *107400 

AMD 

0, 

1 

; EXTRACT  DELTA  ANGLE 

00021 *102620 

SUBZR 

0, 

0 

I  CONVERT  TO  RADIANS 

00022 '127120 

ADDZL 

1, 

1 

I  TIMES  4 

00023*073301 

00024*030450 

MUL 

LDA 

2, 

PI  BS 

I TIMES  PI/4 
;0. 5-SIN  TABLE  OFFSET 

00025 '113120 

ADDZL 

0, 

2 

;AC2=2*(0. 5+SIN< DELTA) ) 

00026*026440 

LDA 

1, 

0LSIN 

ICOURSE  SINE 

00027*135220 

MOVZR 

1, 

3 

J  FIND  -COS ( COURSE+DELTA) 

00030*102620 
00031  '073301 

SUBZR 

MUL 

0, 

0 

162- 


COSIM 
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00032*116400 

SUB 

0, 

3 

JAC3=-SIN< DELTA >*SIM< 

J COURSE) 

00033 '026434 

LDA 

It 

@LCOS 

J COURSE  COSIME 

00034 '137000 

ADD 

It 

3 

;AC3=C0S(C0URSE+DELTA) 

00035*175112 

MOVL# 

3, 

3>  SZC 

JTEST  FOR  UMITY  RESULT 

00036 '176220 

ADCZR 

3, 

3 

JIF  SO  P.OUMD  Dl'M 

00037*054430 

STA 

3, 

LCOS 

;SAVE  IM  LCOS 

00040 ’ 135220 

MOVZR 

1 , 

3 

;fimd  sim<course+delta) 

00041 '102620 

00042  '07330 1 

SUBZR 

MUL 

0* 

0 

00043 '162400 

SUB 

3t 

0 

JACO=SIMC DELTA )*COS< 
;COURSE) 

00044  '026422 

LDA 

It 

0LSIM 

JCOURSE  SIME 

00045 '107000 

ADD 

0, 

1 

;aci=sim(course+delta) 

00046 ' 125112 

MOVL# 

It 

It  SZC 

JTEST  FOR  UMITY  RESULT 

00047 ' 126220 

ADCZR 

It 

1 

JIF  SO  P.OUMD  DUN 

00050 '0204 1 7 

LDA 

0 1 

LCOS 

JRELOAD  COSC COURSE+ 

J DELTA) 

00051  '030414 

LDA 

2> 

AMGLE 

JRELOAD  ANGLE 

00052 '151103 

MOVL 

2t 

2,  SMC 

J  TEST  FOR  OUADRANTS  3 >  4 

00053*000403 

JMP 

.+3 

00054' 100400 

MEG 

Ot 

0 

JIF  SO  INVERT 

00055*124400 

MEG 

It 

1 

JCOS,  SIM 

00056 ' 151103 

MOVL 

2  > 

2 1  SMC 

J  TEST  FOR  EVEN  OUADRANTS 

00057 ' 000404 

JMP 

♦  +4 

00060 '131 000 

MOV 

1  , 

2 

JIF  SO  - 

00061 '105000 

MOV 

0, 

1 

J  SIN=  COS 

00062 '140400 

MEG 

2t 

0 

JCOSs-SIN 

00063 '002401 

JMP 

9RETURM 

J RETURN 

000001 

RETURN; 

•  BLK 

1 

JRETURM  ADDRES 

000001 

ANGLE; 

•  BLK 

1 

J INPUT  ANGLE 

000001 

LSIN; 

.BLK 

1 

JS-M  ADDRESS 

000001 

LCOS; 

.BLK 

1 

JCOS  ADDRESS 

00070*000077 

M77; 

77 

J  SIN  TABLE  ADDRESS  MASK 

00071  '000075* 

LSINT; 

SIMTAB 

J  SI  ME  TABLE  LOCATION 

00072  *000377 

M377; 

377 

J DELTA  ANGLE  MASK 

00073 ' 144420 

PIB2; 

51472. 

J2t 16*PI/4 

00074  '037156 

PIB8; 

1B1-402. 

J - 1 28*PI  IN  0.5'S  COMPL 

00075 '000622 

SINT  \B; 

402. 

JSINTAB  IS  A  TABLE  OF 

00076*002266 

1206. 

J SINES  FROM  0  TO  PI /2 

00077*003731 

2009. 

JRADIANS.  THE  FIRST 

00100*005373 

2811* 

J SAMPLE  ANGLE=PI /256. 

00101  *0(57034 

3612. 

J SAMPLES  ARE  SPACED 

00102*010472 

4410. 

JPI/128.  RADIANS  APART. 

00103*012125 

5205. 

J  THE  TABLE  IS  64. 

00104*013556 

5998. 

J  SAMPLES  LONG.  SINE 

00105 '015203 

6787. 

J VALUES  ARE  GIVEN  IN 

00106*016623 

7571. 

J2'S  COMPLEMENT  NOTATION 

00107*020237 

8351 . 

-163- 

*  COSIN 
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001 10  '021647 
0011 1  '023250 
Uul  12 '024644 
001  lb  *026231 
00114  '027607 
00115'03i 156 
00116  '03231 6 
00117  '0340*' 5 
00120  '035363 
00121  '036670 
00122 '040164 
00123 '041446 
00124 '042715 
00125 '044152 
00126'045373 
00127'046601 
00130 '047773 
CO  1 3 1  '051151 
00 1 32  '0523 1 2 
00 133  '053436 
00134  '054544 
00135 '055635 
00136 '056710 
001 37 '057744 
00140  *060761 
CJ141 '061757 
00142  *062736 
00143  '063675 
00144 '064614 
00145 '065513 
00146 '066371 
00147 '067227 
00150 '070043 
00151  '070636 
001 52 '071410 
00153*072140 
00 1  54  '072646 
00155  '073331 
001 56 '073773 
001 57 '074412 
00160*075006 
00161 '075357 
0U162 '075706 
001 63 '07621 1 
00164  '076472 
001 65 '076726 
001 66  '077140 
001 67 '077326 
001  70  '077470 
00171 '077607 
00172*077702 
001 73 '077752 
001 74 '077776 


9127. 
9896. 
10660. 
11417. 
12167. 
12910. 
13646. 
14373. 
15091. 
15800. 
16500. 
17190. 
178  69. 
18538. 
19195. 
19841. 
20475. 
21097. 
21706. 
22302. 
22884. 
23453. 
24008. 
24548. 
25073. 
25583. 
26078. 
26557. 
27020. 
27467. 

2  789  7. 

28311. 

28707. 

29086. 

29448. 

29792. 

30118. 

30425. 

30715. 

30986. 

31238. 

31471. 

31686. 

31881 . 

32058. 

32214. 

32352. 

32470. 

32568. 

32647. 

32706. 

32746. 

32766. 

.END 


.5  S  INTAB  CONTINUED 


;end  of  sintab 
;e\t  of  cosin 
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ANGLE 

000065* 

COSIN 

000000- 

ENTRY 

000000* 

LCOS 

000067* 

LSIN 

0^0066’ 

LSINf 

000071 ’ 

M377 

000072  * 

M77 

000070 ' 

PII32 

000073 ’ 

PIB8 

000074  * 

RET'JR 

000064* 

SI  NT  A 

000075* 

ARC  TV 
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•  TITL  AECTN 

JARCTN  IS  A  SURF.  OUT  I  VE  TO  CALCULATE  A  1 A  PIT 
J2*P1*S  COMPLEMENT  RADI  AM  ANGLE  FROM  A  16  PIT 
J2  *S  COMPLEMENT  COMPLEX  VECTOR.  THE  REAL  PART 
JOF  THE  VECTOR  IS  PLACED  IV  ACO,  THE  I  MAC J  VARY 
5 PART  IV  AC  1 ,  RA-JCLE  (-1,  1).  THE  AVGLE  IS  RETURNED 
JIN  ACO,  RAVGE  <-PI,  PI).  ACS  AMD  ACS  ARE  DESTROYED. 
JTHE  GLOBAL  EH  TRY  POIVT  IS  OARCTM.  THE  ROUTINE  IS 
J OPTIMIZED  FOR  SPEED,  MAY  EE  I  Af ERUPTED,  A,VD  EEOUIEZS 
J VO  I VITIALIZATIOV.  AVEnAGE  CORE  SUPER VOVA 
J HARDIvA-tE  MUL1/DIV  EXECUTI ON  TIEE=51.0  USEC.S 
JTOTAL  LE\fGTH=l  12.  LOCATIONS. 


.ENT 
.  ZREL 

ARC  T  V 

00000-000000  * 

ARC TV i 

ENTRY 

J ENTRY  LOCATION 

.NR  EL 

00000 

•054454 

ENTRY: 

STA 

3,  RETURN 

i SAVE  RETURN  ADDRESS 

00001 

•176440 

Su‘30 

3,  3 

; CLEAR  AC3,  CARRY 

00002 

•125112 

MOVL# 

1,  1,  SZC 

}  I  F  I  MAG  NEGITIVE 

00003 

•124460 

NEGC 

1,  1 

} NEG,  COMPL  CRRY 

00004 

•177002 

ADD 

3,  3,  SZC 

JSL1  AC 3,  TEST  CARRY 

00005 

•175400 

INC 

3,  3 

J  I  F  CRRY  INC  AC 3 

00006 

•101112 

MGVLA 

0,  0,  SZC 

JIF  REAL  NEC-'ITIVE 

00007 

’100460 

NEGC 

0,  0 

I NEG,  COMPL  CRRY 

00010 

•177002 

/  UD 

3 ,  3 ,  SZC 

JSL1  AC 3,  TEST  CARRY 

000’  1 

*  1  75400 

INC 

3,  3 

JIF  CRRY  INC  AC 3 

00012 

•106512 

SUSLf? 

0,  1,  SZC 

JIF  I MAG  .GE.  REAL 

00013 

•111001 

MOV 

0,  2,  SKP 

00014 

•131061 

MOVC 

1,  2,  SKP 

} SV.'I TCH  REAL  AND 
J  I  MAG,  CMPL  CRRY 

00015 

•121000 

MOV 

1,  0 

00016 

•175100 

MOVL 

3,  3 

S SHI  FT  CARRY  INTO  ^C3 

00017 

•054436 

STA 

3.'  ANGLE 

,-SAVE  UPPER  PITS  OF  ANGL 

00020 

•145220 

MOVZR 

2,  1 

J I  MAG /REAL 

00021 

•073101 

DIV 

00022 

*125002 

MOV 

1,  1,  SZC 

; CHECK  FOR  OVERFLOW 

00023 

•126060 

ADCC 

1,  1 

JIF  SO  ROUND  DIN 

00024 

•121000 

MOV 

1,  0 

J  ACO=AC 1 =CUOTI ENT 

00025 

•030431 

LDA 

2,  M37I34 

J UPPER  5  PIT  MASK 

00026 

•034431 

LDA 

3,  LTAB 

JARCTAN  TAPLE  STARTING 
JLOCATI ON 

00027 

'147400 

AMD 

2,  1 

J  MASK  ADDRESS  PITS 

00030 

• 12F300 

MO  VS 

1,  1 

J SHI  FT  RIGHT  10. 

00031 

•125220 

MOVZR 

1,  1 

00032 

•125220 

MOVZR 

:,  i 

00033 

*137000 

ADD 

1,  3 

JADD  ARCTAN  TAPLE 

J STARTING  LOCATION 


s 
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JARCTN 

.  ,  1  PAGE  2  or-  3 

i 

00034 *025401 

LDA 

1, 

Is  3 

J  INTFRPOLATJ.  NG  SL-JPE 

00035*035^00 

LDA 

3, 

Oj  3 

jcjuf.s::  AM  CLP 

00036*150000 

COM 

P.s 

2 

JL01ER  11.  PIT  MASK 

0003?  '  113400 

A.JD 

0, 

2 

J MASK  DELTA  ANCLE 

00040*102620 

SUBZE 

0, 

0 

J  MULTIPLY  PY  I NT  EBP  U,- 
J ATI  ON  SLOPE 

00041 *073301 

MUL 

| 

00042  *  1 1 7000 

ADD 

0, 

3 

J  ADD  TO  COURSE  A 'FOLK 

00043*020412 

LDA 

0, 

AM  OLE 

; RELOAD  UPPER  ANGLE  “ITS 

00044 '101222 

MOVZi; 

0> 

0*  SZC 

J  SUBTRACT’  LOVER  AO  CL17? 

00045*174001 

COM 

3  j 

3 1  SKP 

5  IF  SO  NEC  L'/v.’ER 

00046*101221 

MJVZR 

Oj 

Os  SKP 

■ 

00047*101620 

INCZR 

0* 

0 

;  JANGLE,  Bobrov 

J FRM  UPPER  ANCLE 

00050*101200 

MOVR 

0> 

0 

00051 *101200 

MOVE 

Oj 

0 

1  J  UPPER  ANGL1£  BITS 
;LF,FT.  JUSTIFIED 

00052*163000 

ADD 

3> 

0 

J ADD  UPPER  ft  LOVER  PITS 

00053*002401 

JMP 

©RETURN 

J  RETURN 

000001 

RETURN : 

.ELK 

1 

J RETURN  ADDRESS 

000001 

ANGLE: 

.ELK 

1 

, ; UPPER  ANGLE  BITS 

00056*174000 

M37B4: 

37D4 

J UPPER  5  BITS  MASK 

00057*000060* 

LTAB: 

ARCTAN 

J ARCTAN  TABLE  LOCATION, 

00060*000000 

ARCTAN : 

0. 

; ARCTAN  IS  A  TABLE  OF 

00061 *024273 

10427. 

J  ARCTAN G I  ENTS  AND 

00062*000506 

. 

326. 

J  INTERPOLATING  SLOPES 

00063*024247 

10407. 

J BET VEEN  THESE  POINTS. 

00064*001213 

651. 

; THESE  NUMBERS  ARE 

00065*024176 

10366. 

JLISTED  IN  PAIRS,  THE 

00066*001717 

975. 

;ancle  coming  first. 

00067 '024102 

10306. 

jthe  first  pair  is  for 

0G070  *002421 

1297. 

JTANGI ENT=0,  THE  REMAIN- 

00071 *023763 

10227. 

JIN  G  PAIRS  REPRESENT 

00072*003121 

161'*. 

J TAN GI ENTS  WITH  SPACINGS 

00073*023622 

10130. 

J  OF  1/32.  UP  TO  AND 

00074*003615 

1933. 

J INCLUDING  TAN G I  ENT = 

00075*023440 

10016. 

J31./32.  THE  TABLE  IS 

00076*004306 

2246. 

J32.  PAIRS  LONG.  THE 

00077*023237 

9887. 

JANGLE  IS  GIVEN  IN 

00100*004773 

2555. 

J2+PI *S  COMPLEMENT 

00101 '023016 

9742. 

J RADIANS.  THE  SLOPE  IN 

00102 '005454 

2860. 

JPI  'S  COMPLEMJCNT 

00103*022561 

9585. 

'  J RADIANS. 

00104*006127 

3159. 

00105*022310 

9416. 

00106*006575 

3453. 

00107*022025 

9237. 

00110*007236 

3742. 

00111*021531 

9049. 

00 1 12*007671 

4025. 
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001 1 3  *02 1 22 6 

8854. 

00114*010316 

,  4302. 

00115*020715 

8653. 

00116*010734 

4572. 

001 17'020400 

8448. 

00120*011344 

4836. 

00121 *020060 

8240. 

00122*011746 

5094. 

00123*017535 

8029. 

00124*012340 

5344. 

,00125*017212 

7818. 

00126*012725 

5589. 

00127*016666 

7606. 

00130 '013302 

5826. 

00131 *016343 

7395. 

00l32 '013652 

6058. 

00133 '016022 

7186. 

00134*014212 

6282. 

00135*015504 

6980. 

00136*014544 

6500. 

00137*0151,70 

6776. 

00140*015070 

6712. 

00141 *014660 

5576. 

00142*015405 

691  7. 

00143*014354 

6380. 

00144*015715 

7117. 

00145*014053 

6187. 

00146*016216 

7310. 

00147*013560 

6000. 

00150*016512 

7498. 

00151*01^271 

5817. 

00152*016777 

7679. 

00153*013007 

5639. 

00154*017260 

7856. 

00155*012532 

5466. 

00156*01 7532 

8026. 

00157*012262 

5298. 

1ARCTAN  CONTINUED 


;end  of  arctan 
;end  of  arctn 


END 


ANGLE 

000055’ 

ARCTA 

000060’ 

ARCTM 

000000- 

ENTRY 

000000' 

LTAB 

000057’ 

M37334 

000056’ 

RET  UR 

000054’ 
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.  TITL  TODRV 

l  TODRV  IS  A  TELETYPE  OUTPUT  DRIVER  SUBROUTINE  FOP.  USE 
,*WITH  HAL '/‘.ARE  I  NT  ERUPT  AND  BUFFERED  MESSAGE  TRANSFERAL. 
i THE  ROUTINE  ASSUMES  THAT  IT  HAS  BEEN  CALLED  BY  A  TTO 
i INITIATED  INTEF.UPT.  IT  PRINTS  THE  MESSAGE  GIVEN  IN 
,*THE  BUFFER  WHOSE  STARTING  ADDRESS  IS  LISTED  AT  TOBUF, 
^ASSUMING  THE  BUFFER  IS  OPEN.  AFTER  FINISHING  PRINTING 
JTHE  BUFFER  COMTENSE,  THE  BUFFER  IS  CLOSED,  TTO  IDLED, 
;AND  TTI  STARTED.  THE  BUFFER  STORAGE  BLOCK  FORMAT  IS 
;as  FOLLOWS: 

i BUFFER:  BYTEPO INTER 

;  • TXTE  *MESSAGE* 

;IF  BYTEPOI NTER=0,  THE  BUFFER  IS  CLOSED,  IF  BYTEPOINTER 
;=!,  THE  BUFFER  IS  OPEN  AND  READY  TO  PRINT.  THE  GLOBAL 
,- ENTRY  POINT  IS  OTODRV.  TTO  INTERUPT  MUST  PE  ENABLED 
;TO  INITIATE  PRINTING,  BUT  THIS  IS  THE  ONLY  INITIALIZA¬ 
TION  REQUIRED  BY  TODRV.  AVERAGE  SUPERNOVA  CORE 
^EXECUTION  TIM£=19«  3  USEC.S 
} TOTAL  LENGTH=1 7.  LOCATIONS 


00000-000000 v 
00001-000017* 

00000*030001- 
00001 *025000 
00002*125620 


00003*133000 
00004 '021000 
00005*125002 
00006” 101300 
00007*03041 1 
00010*143405 

00011*126441 

00012*061111 

00013 '125105 

00014*0602 l l 

00015*046001- 

00016*001400 


00017 '000000 
00020*000377 


.  ENT 
.  ZREL 

TODRV,  TOBUF 

TODRV: 

ENTRY 

J ENTRY  LOCATION 

TOBUF: 

.NREL 

NULLBUF 

,* ADDRESS  OF  PRINT  BUFFER 

ENTRY: 

LDA 

2,  TOBUF 

J BUFFER  STARTING  LOC 

LDA' 

1,  0,  2 

;BYTE  POINTER 

INCZR 

1,  1 

; INCREMENT  ONE 
j EXTRACT  WORD  ADDRESS 

ADD 

1,  2 

JADD  OFFSET 

LDA 

0,  0,  2 

; EXTRACT  WORD 

MOV 

1,  1,  szc 

riEST  FOR  UPPER  BYTE 

MO  VS 

0,  0 

;IFS0  SWAP  BYTES 

LDA 

2,  M377 

SLOWER  BYTE  MASK 

AND 

2,  0,  SNR 

;mask  CHARACTER 

;TEST  FOR  NULL  CHARACTER 

SUBO 

1,  1,  SKF 

;IF  SO  CLOSE  BUF 

DOAS 

0,  TTO 

; ELSE  PRINT  CHAR 

MOVL 

1 ,  1 ,  1>MR 

J REASSEMBLE  BYTE  POINTER 

;TF^'r  FOP  CLOSED  BUFFER 

NIOC 

TTO 

; T  F  Su  IDLE  TTO 

STA 

1,  @ TOBUF 

STORE  UPDATED  PQJ  NTER 

JMP 

0,  3 

.5  RETURN 

NULLBUF* 
M3  77: 


i  END 


0 

377 


J CLOSED  BUFFER 
3  i^OWER  BYT''  ML. 

•-Nr  OF  1  > ' OR V 


170- 


ENTRY 

OOOOOO  1 

r  77 

000020  * 

NULLB 

000017’ 

TOBUF 

000001- 

TODRV 

000000- 

171 
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• TITL  TIDRV 

I XI  DRV  IS  A  TELETYPE  INPUT  DRIVER  SUBROUTINE  FOR  USE 
IWITH  HARDWARE  INTERUPT  AMD  BUFFERED  MESSAGE  TRANSFERAL. 
1  THE  ROUTIME  ASSUMES  THAT  IT  HAS  BE EM  CALLED  PY  A  TTI 
I INITIATED  I MTERUPT •  IT  ECHOS  AMD  READS  I’M  THE  MESSAGE 
i TYPED  OM  THE  TELETYPE  INTO  THE  BUFFER  WHOSE  STARTINC- 
; LOCATION  IS  LISTED  AT  TIBUF,  ASSUMING  THE  PUFFER  IS 
IOPEN  AMD  TODRV  IS  MOT  PRINTING  SOME  OTHER  MESSAGE  AT 
JTKE  TIME.  A  CAMCL  CCOMTRL  X)  CHARACTER  IS  ECHOED  AS 
;A  CR,  LF,  AMO  CAUSES  THE  BUFFER  TO  PE  REI  MI  TI ALI  ZED,  IF. 
SBYTEPOI NTER  =  t «  A  CR  CHARACTER  IS  ECHOED  AS  A  CR,  LF, 

!  AND  RECORDED  IM  THE  BUFFER  AS  AM  EOF  MARKER.  (A  MULL 
1 CHARACTER)  AFTER  RECORDING  A  MULL  CHARACTER,  THE  FILE 
IIS  CLOSED,  AMD  TTI  IDLED.  THE  FILE  IS  AUTOMATICALLY 
S CLOSED  AFTER  80  CHARACTERS.  THE  BUFFER  FORMAT  IS  THE 
I  SAME  AS  USED  IM  TOBUF.  THE  GLOBAL  EMTRY  POINT  IS 
I tTIDRVo  TTI  I MTERUPT  MUST  BE  ENABLED  TO  I  MI TI ATE 
,*THE  ROUTIME,  BUT  MO  OTHER  INITIATION  IS  REQUIRED. 
.♦AVERAGE  SUPERNOVA  CORE  EXECUTION  T1ME=36.8  USEC.S 
ITOTAL  LENGTH“46»  LOCATIONS 


.ENT 

TI DRV,  TI8UF 

« EXTD 
.  ZREjl. 

44ASSF,  TOBUF 

00000-000000’ 

TIDRV: 

ENTRY 

I  ENTRY  LOCATION 

0000 1 -000055  * 

TIBUF* 

.  MREL 

NULLS UF 

1 ADDRESS  OF  READ  BUFFER 

00000*026008$ 

EMTRY: 

LDA 

1,  8T0BUF 

IPRIMT  RUF  BYTE  POINTER 

00001  '  125004 

MOV 

1,  1,  SZR 

IIS  THE  PRINT  PUF  OPEN 

00002 '000443 

JMP 

STOP 

1 I F  SO  STOP  READ 

00003*026001- 

LDA 

1,  9TI3UF 

1 READ  BUF  BYTE  POINTER 

00004 ’125625 

INCZfi 

1,  1,  SMR 

IIS  THE  READ  BUF  CLOSED 

00005  '000440 

JMP 

STOP 

JIF  SO  STOP  RE^D 

00006*012001- 

ISZ 

@TIBUF 

S INCREMENT  BYTE  POINTER 

00007 ’060610 

DIAC 

0,  TTI 

1 READ  CHAR,  CLEAR  TTI 

00010*030437 

LDA 

2,  CCANCL 

ICANCL  (CONTRL  X)  CHAR 

00011 '142414 

SUB# 

2,  0,  SZR 

IIS  CHARACTER  A  CANCL 

00012*000403 

JMP 

C’RTEST 

00013*102520 

SUBZL 

0,  0 

IIFSO  INITIALIZE 
; PYTEPO INTER 

00014*00042! 

JMP 

CRECHO 

I AND  ECHO  CR,  LF 

00015*030433 

CRTESTl 

LDA 

2,  CCR 

ICR  CHARACTER 

00016*140415 

SUB# 

2,  0,  SNR 

IIS  CHARACTER  A  CR 

00017*102460 

SUBC 

0,  0 

IIFSO  SETTO  NULL 

00020*030431 

LDA 

2,  C37. 

137. 

00021 *146513 

SUBL# 

2,  1,  SMC 

IIS  THIS  8 1TH  CHARACTER 

00022  *102460 

SUBC 

0,  0 

IIFSO  SETTO  NULL 

172  ■ 
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00023  '03000 1  - 

LDA 

2  9 

TIBUF 

JREAD  PUF  STARTIMC  LDC 

00024*133000 

ADD 

2 

;ADD  OFFSET 

00025*025000 

LDA 

\» 

0/  2 

; EXTRACT  WORD  - 

00026*125303 

MOVS 

1, 

If  SMC 

i TEST  FOR  NElv  WORD 

00027*126460 

SUBC 

l. 

1 

5  IF  SO  CLEAR 

00030*107002 

ADD 

0 > 

If  SZC 

i I MCERT  MEV  CHARACTER 

S TEST  FOR  UPPER  BYTE 

00031 '125300 

MOVS 

1 

1IFS0  SfcAP  nYTES 

00032 '045000 

STA 

1> 

Of  2 

; STORE  VORD 

00033*101004 

MOV 

Of 

Of  SZR 

i  TEST  "'OR  MULL  C^RACTER 

00034  *000407 

JMP 

ECHO 

00035 '04200 1 - 

CRECHO:  STA 

0* 

@TT  BUF 

;if  SO  CLOSE 

00036*102520 

SUBZL 

0, 

0 

JTIPUF  AMD  ECHO 

00037*040414 

STA 

0, 

ECHOLF 

JCR,  LF 

;OPEM  ECHO  PRIMT  PUFFER 

00040 '020412 

LDA 

Of 

LECHO 

;  ECHO  PRIMT  PUF  LOCATION} 

00041 *040002$ 

STA 

0> 

T'JB  .■ 

i  SAVFJ  AT  TOPUF 

00042 '020406 

LDA 

0, 

CCR 

;CR  CHARACTER 

00043*061111 

ECHO:  DOAS 

Of 

TTO 

>  START  TTO  &  ECHO  CHAR 

00044 '001400 

JMP 

Of 

3 

; RETURN 

00045*060210 

STOP:  NIOC 

TTI 

i I DLE  TTI 

00046*001400 

JMP 

0, 

3 

.RETURN 

00047*000030 

CCAMCL: 

30 

JCAMCL  CCOMTRL  X)  CHAR 

00050 'Q002 15 

CCR: 

215 

;CR  CHARACTER 

00051  '000045 

C37. : 

37. 

f  3  7. 

00052  '000053* 

LECHO: 

ECHOLF 

;echo 

PRIMT  PUF  LOCATION 

00053 '000001 

ECHOLF: 

1 

;  ECHO 

LF  PRINT  BUFFER 

0005**000012 

12 

jlf. 

NUL  CHARACTERS 

00055*000000 

NULLBUF: 

0 

;o  - 

A  CLOSED  PUFFER 

.END 

;end 

OF  TIDRV 
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C37. 

000051  * 

CCA'IC 

000047  * 

CCR 

000050’ 

CHECH 

000035' 

CRTES 

000015’ 

ECHO 

000043 ' 

ECHOL 

000053 ’ 

E  JTRY 

000000 ’ 

LECHO 

000052 ’ 

MASK 

00000 1SX 

MULLE 

000055’ 

STOP 

000045* 

TIHUF 

000001- 

TIBRV 

000000- 

TOPUF 

000002SX 

-174- 
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• TITL  CHCOM 

JCHCOM  IS  A  SUBROUTINE  PACKAGE  FOR  BUFFERING  THE  ANALOG 
J INTERFACE  UNIT  CHANNEL  SIGNAL  COMMUNICATIONS.  IN 
J ADDITION  TO  CHCOM  THE  PACKAGE  HAS  3  OTHER  SUBROUTINES, 

J  CRDRV,  Cl  DRV,  &  CODRV,  WHICH  ARE  CALLED  DIRECTLY  BY  AI U 
; INITIATED  INTERUPTS.  THESE  SUBROUTINES  IMPLEMENT  THE 
J CHANNEL  COMMUNICATIONS  BETWEEN  THE  AIU  AND  BUFFER  IOBUF 
; WHICH  HAS  THE  FOLLOWING  FORMAT  FOR  LINEAR  OPERATION: 

J  IOBUF:  . BLK  1  ; FIRST  REAL  SAMPLE 

J  .BLK  1  J  FIRST  IMAGINARY  SAMPLE 

;  .BLK  1  J SECOND  REAL  SAMPLE 

J  .BLK  1  J SECOND  IMAGINARY  SAMLE 

JOR  I  OR  ANGLE  OPERATION  IOBUF  HAS  THE  FOLLOWING  FORMAT: 

; IOBUF:  .BLK  1  J  FIRST  ANGLE  SAMPLE 

.BLK  1  J SECOND  ANGLE  SAMPLE 

J  AT  THE  BEGINING  OF  A  AIU  FRAME  (DATA  SAMPLE  PERIOD), 
,*THE  BUFFER  CONTAINS  TWO  SAMPLES  OF  THE  CHANNEL  SIGNAL. 
;10  SAMPLES  WILL  BE  INTERPOLATED  BETWEEN  THESE,  AND 
J TRANSMITTED  TO  THE  CHANNEL.  AT  THE  SAME  TIME  2  SAMPLES 
J WILL  BE  RECEIVED  FROM  THE  CHANNEL,  AND  WILL  EE  RECORDED 
JIN  IOBUF  ASSUMING  CHANNEL  COMMUNICATION  IS  ENABLED.  1 
JIF  CHANNEL  COMMUNICATI ONS  ARE  NOT  ENABLED,  THE  BUFFER 
JIS  NOT  DISTURBED.  AT  THE  BEGINING  OF  EACH  FRAME,  CHCOM 
JMUST  BE  CALLED  <  JSR  ©CHCOM)  TO  TRANSFER  THROUGH  ACO  A 
JNEW  IOBUF  ADDRESS  TO  THE  CHANNEL  COMMUNICATION  PACKAGE. 
JIF  AC0=0,  CHANNEL  COMMUNICATIONS  IS  DISABLEDJ  IF  AC0<>0 
JTHEN  COMM  IS  ENABLED,  AND  ACO=2*ADDRESS  OF  I0BUF+(0  IF 
JLINEAR  TRANSMISSION,  1  IF  ANGLE  TRANSMISSION  DESIRED). 
JTHE  PACKAGE  REQUIRES  NO  OTHER  INITIALIZATION. 

JSUPERNOVA  CORE  EXECUTION  TIME=23.3  USEC.S 


J TOTAL 

LENGTH= 

33.  LOCATI ONS J 

93.  FOR  THE  TOTAL  PACKAGE 

000042 

.  DUSR 

AIU=42 

J AIU  DEVICE  CODE 

.ENT 

CHCOM, 

CRDRV, 

Cl  DRV,  CODRV 

.EXTD 
•  ZB  EL 

ARCTN, 

COSIN, 

MASK 

00000-000000' 

CHCOM: 

ENT1 

J INITIALIZATION  ENTRY 

00001-000025' 

CRDRVl 

ENT2 

JCH  RE  INP  INTRPT  ENTRY 

00002-000045* 

Cl  DRV: 

ENT3 

JCH  IM  INP  INTRPT  ENTRY 

00003-000075' 

CODRV: 

.  NREL 

ENT4 

JCH  OUTPUT  INTRPT  ENTRY 

00000 ’024003$ 

ENT1 : 

LDA 

1,  MASK 

JINTERUPT  MASK 

00001 '030522 

LDA 

2,  MSKMSK 

J AI U,  TTI&  TTO  MASK  MASK 

00002  M47400 

CSWt 

AND 

2,  1 

J DISABLE  CHANNEL  COMM 

J SV=ANGLE  INSTRUCTION 

00003 ' 101225 

MOVZR 

* 

o 

* 

o 

sm 

J EXTRACT  IOBUF  ADDRESS 
JTST  FOR  CH  COMM  REQUEST 

00004*000415 

JMP 

STOP 

JIF  NOT  DISABLE 

' 

* CHCOM* 

i 

CRDRV* 

Cl  DRV*  CO DRV 
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00005  '04052 1 

STA 

0* 

IOBUF 

>*SAVE  IOBUF  ADDRESS 

00006*020774 

i 

LDA 

0, 

CSV 

* SW=ANGLE  INSTRUCTION 

00007*101013 

MOV0 

0, 

0*'  SNC 

* TEST  FOR  LINEAR  OP  REQ 

00010*101400 

INC 

0* 

0 

*IF  SO  MODIFY 

JSW  INSTRUCTION 

00011  '040471 

STA 

0* 

SW1 

JSET  SWITCH  1 

00012*040436 

STA 

0* 

SW2 

*SET  SWITCH  2 

0001? *020511 

LDA 

0* 

TTMASK 

JAIU  CH  SIGNAL  ENABLE*  & 
5TTI  &  TTO  DISABLE  MASK 

00014  *040513 

STA 

Oj 

SAMPLE 

j SYNC  SAMPLE  COUNTER 

00015*10,7000 

00016*066077 

FIN: 

ADD 

MSKO 

0 * 

1 

1 

*  GENERATE  NEW  MASK 

J TRANSMIT  NEW  MASK 

00017*0440035 

STA 

1, 

MASK 

*SAVE  NEW  MASK 

00020 '001400 

JMP 

o* 

3 

; RETURN 

00021 *062042 

STOF: 

DOB 

0* 

AIU 

; CLEAR  CHANNEL  OUTPUT 

00022*063042 

DOC 

0* 

AIU 

; REGISTERS 

00023  *020505 

LDA 

Oj 

TTMASK+ 1 

;CH  SIG  DISABLE  MASK  & 
i TTI  &  TTO  ENABLE  MAS^ 

00024 '000771 

JMP 

FIN 

? INITIATE  NEW  MASK 

I 


* CRDRV 

IS  AH  ANALOG  INTERFACE 

UNIT  REAL  CHANNEL  SIGNAL 

* INPUT 

DRIVER 

SUBROUTINE  WHICH 

IS  AN  INTIGRAL  PART  OF 

;THE  CHCOM  PACKAGE*  THE  ROUTINE  ALSO  HANDLES  REAL  DATA 

1 

j TRANSFER  TO  AND  FROM  IOBUF  AND  COMPUTS  THE  REAL  INCRE- 

;ment  for  codrv.  the  routine 

ASSUMES  THAT  IT  HAS  BEEN 

; CALLED  BY  A  CRI  (CHANNEL  REAL 

INPUT*  44)  INTERUPT. 

JTHE  GLOBAL  ENTRY  POINT  IS  9CRDRV*.  SUPERNOVA  HARDWARE 

* MULT/DI V  EXECUTION  TIME=26. 1 

USEC.S 

; TOTAL 

LENGTH = 

■  17.  LOCATIONS 

00025*032501 

ENT2J 

LDA 

2*  9 IOBUF 

;NEW  REAL  OUTPUT  SAMPLE 

00026*060542 

DIAS 

0*  AIU 

IINPUT  REAL  SAMPLE 

00027*024473 

LDA 

Ij  Ml 7B 

; ANALOG  SIGNAL  MASK 

00030*123400 

, 

AND 

\j  0 

1MASK  OUT  CONTROL  STATE 

00031 *042475 

STA 

0*  9I0BUF 

ISAVE  REAL  INPUT  SAMPLE 

00032 '020476 

LDA 

0/  RFSUM 

*‘OLD  REAL  OUTPUT  SAMPLE 

00033*112400 

SUB 

0*  2 

t FIND  NEW-OLD  SAMPLE  DIF 

00034*102620 

SUBZR 

0*  0 

;D0  SIGNED  MULTIPLY 

00035*151112 

MOVL# 

2*  2j  SZC 

JTST  MULTI PLI CAN 

00036*150460 

NEGC 

2j  2 

JIF  NEG*  COMPLE 

jAND  SET  CARRY 

00037*024462 

LDA 

Ij  C.l 

I TIMES  0.1 

00040*073301 

MUL 

; MULTI PLY 

00041*101002 

MOV 

0*  0#  SZC 

UF  CARRY -1 

00042  *  100400 

NEG 

0*  0 

J COMPLE  RESULT 

00043*040466 

STA 

Oj  REINC 

ISAVE  REAL  INCREMENT 

00044*001400 

JMP 

0*  3 

; RETURN 
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; Cl  DRV  IS  AN  ANALOG  INTERFACE  UNIT  IMAGINARY  CHANNEL 
JSIGNAL  INPUT  DRIVER  SUBROUTINE  WHICH  IS  AN  INTI  GAL  PART 
iOF  THE  CHCOM  PACKAGE.  THE  ROUTINE  ALSO  HANDLES 
} I MAGI NARY  DATA  TRANSFER  TO  AND  FROM  IOBUF  AND  COMPUTS 
;THE  IMAGINARY  INCREMENT  FOR  CODRV.  THE  ROUTINE  ASSUMES 
;THAT  IT  HAS  BEEN  CALLED  BY  A  CII  (.CHANNEL  IMAGINARY 
J INPUT,  45)  INTERUPT.  SUBROUTINE  ARCTN  IS  USED  FOR 
J POLAR  TO  LINEAR  CONVERSION.  THE  GLOBAL  ENTRY  POINT  IS 
;@CIDRV.  SUPERNOVA  HARDWARE  MULT/DI  V  EXECUTION  TIME= 
S31.1  (LINEAR)/.  18.  1+TIME( ARCTN)  (ANGLE)  USEC.S 
S TOTAL  LENGTH=24.  LOCATIONS 


00045 '054467 

ENT  3: 

STA 

3,  RETURN 

i SAVE  RETURN  ADDRESS 

00046*064542 

DIAS 

1,  AIU 

5  INPUT  IMAGINARY  SAMPLE 

00047*030453 

LDA 

2,  Ml 7B 

i ANALOG  SIGNAL  MASK 

00050*147400 

SW2: 

AND 

2,  1 

5 MASK  OUT  CONTROL  STATE 

J  LI  NEAR/AN  GLE  SWITCH 

00051 *000417 

JMP 

PHASE 

;IF  ANGLE  GO  TO 
;LIN  CONVERSION 

00052*010454 

ISZ 

IOBUF 

; ADVANCE  IOBUF  POINTER 

00053*032453 

LDA 

2j>  ©IOBUF 

r  MEW  I  MAG  OUTPUT  SAMPLE 

00054*046452 

STA 

1,  ©IOBUF 

ISAVE  I MAG  INPUT  SAMPLE 

00055*020455 

LDA 

0,  IMSUM 

I0LD  I  MAG  OUTPUT  SAMPLE 

00056*112400 

SUB 

0,  2 

i FIND  NEW-OLD  SAMPLE  DIF 

00057*102020 

SUBZR 

0,  0 

J DO  SIGNED  MULTIPLY 

00060*151112 

MOVL# 

2»  2,  SZC 

;IF  NEG,  COMPLE 

00061*150460 

NEGC 

2,  2 

;AND  SET  CARRY 

00062*024437 

00063*073301 

LDA 

MUL 

1,  C.l 

i TIMES  0.1 

J MULT I PLY 

00064*101002 

MOV 

0*  0,  SZC 

IIF  CARRY=1 

00065*100400 

NEG 

0#  0 

; COMPLE  RESULT 

00066*040445 

STA 

0,  IMINC 

ISAVE  I  MAG  INCREMENT 

00067*000404 

JMP 

END 

J TERMINATE 

00070*022436 

PHASE* 

LDA 

0,  ©IOBUF 

I REAL  INPUT  SAMPLE 

00071 *006001$ 

JSR 

©ARCTN 

} CONVERT  TO  LINEAR 
; NOTATION 

00072*042434 

STA 

0/  ©IOBUF 

i SAVE  INPUT  ANGLE  SAMPLE 

00073*010433 

END* 

ISZ 

IOBUF 

j ADVANCE  IOBUF  POINTER 

00074*002440 

JMP 

©RETURN 

; RETURN 
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jCODRV  IS  AN  ANALOG  INTERFACE  UNIT  CHANNEL  SIGNAL  OUTPUT 
^DRIVER  SUBROUTINE  WHICH  IS  AN  INTIGRAL  PART  OF  THE 
i CHCOM  PACKAGE.  THE  ROUTINE  ASSUMES  THAT  IT  HAS  BEEN 
; CALLED  BY  A  CSO  C CHANNEL  SIGNAL  OUTPUT,  46)  INTERUPT. 

,* CODRV  RETURNS  TO  AC3+1  ON  ODD  SAMPLES  TO  FACILITATE  LOW 
S SPEED  I/O  SERVICE  WITHOUT  INTERFERING  WITH  AIU  SERVICE. 
J SUBROUTINE  COSIN  IS  USED  FOR  LIN  TO  POLAR  CONVERSION. 
;THE  GLOBAL  ENTRY  POINT  IS  GCODRV.  SUPERNOVA  CORE 
; EXECUTION  TIME=28.3  (LINEAR),  24. 1+TIMEC COSIN)  (ANGLE) 
iUSEC.S.  TOTAL  LENGTH=20.  LOCATIONS 


00075 '054437 

ENT4: 

STA 

3,  RETURN 

;SAVE  RETURN  ADDRESS 

00076*020432 

LDA 

0,  RESUM 

5  CURRENT  REAL  SAMPLE 

00077*030432 

LDA 

2,  REINC 

;P.EAL  SAMPLE  INCREMENT 

00100*143000 

ADD 

2,  0 

JREAL  INCREMENT 

00101*040427 

STA 

0,  RESUM 

S SAVE  NEW  SAMPLE 

00102  ‘  147400 

SW1 : 

AND 

2,  1 

5 LI NEAR/ ANGLE  SWITCH 

00103*000406 

JMP 

ANGLE 

;IF  ANGLE  SKIP 

S I MAG  INCREMENT 

00104*024426 

LDA 

1,  IMSUM 

; CURRENT  I MAG  SAMPLE 

0G105  *030426 

LDA 

2,  IMINC 

5  I MAG  SAMPLE  INCREMENT 

00106 ' 147000 

ADD 

2,  1 

JIMAG  INCREMENT 

00107'Q44423 

STA 

1,  IMSUM 

,*SAVE  NEW  SAMPLE 

00110*000402 

JMP 

.  +2 

;SKIP  ANGLE  CONVERSION 

00111*0060023 

ANGLE: 

JSR 

ecosiN 

; CONVERT  TO  POLAR 
; NOTATION 

00112*062042 

DOB 

0,  AIU 

; OUTPUT  REAL  SAMPLE 

00113*067142 

DOCS 

1,  AIU 

I  OUTPUT  I  MAG  SAMPLE 

00114*020413 

LDA 

0,  SAMPLE 

,*  SAMPLE  COUNTER 

00115*010412 

ISZ 

SAMPLE 

i INCREMENT  SAMPLE  COUNT 

00116*101212 

MOUR# 

0,  0,  SZC 

JTEST  FOR  ODD  SAMPLE 

00117*010415 

ISZ 

RETURN 

1IF  SO  JMP  TO 
; RETURN  >1 

00120*002414 

JMP 

©RETURN 

; RETURN 

00121 *006315 

C.l: 

3277. 

;2»16/10 

00122*177760 

M17B: 

177760 

; ANALOG  SIGNAL  MASK 

00123*175774 

mskmsk: 

1 77777- 1B5-3 

J AI U,  TTI 5  TTO  MASK  MASK 

00124*000003 

TTMASK: 

3 

;aiu  ch  signal  enable,  & 

;TTI  &  TTO  DISABLE  MASK 

00125*002000 

1B5 

;CH  SIGNAL  DISABLE,  ft 

I TTI  &  TTO  ENABLE  MASK 

00126*000130' 

I OBUF: 

RESUM 

il/O  BUFFER  POINTER 

000001 

SAMPLE:  •  BLK 

1 

; SAMPLE  COUNTER 

000001 

RESUM:  .BLK 

1 

; CURRENT  REAL  SAMPLE 

000001 

REINC:  .BLK 

1 

I  REAL  SAMPLE  INCREMENT 

000001 

IMSUM!  .BLK 

1 

; CURRENT  IMAG  SAMPLE 

000001 

IMINC:  .BLK 

1 

IIMAG  SAMPLE  INCREMENT 

000001 

RETURN:  .BLK 
.END 

1 

j RETURN  ADDRESS 
;END  OF  CHCOM  PACKAGE 
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ANGLE 

OOOlll  • 

ARCTN 

00000 1$X 

CHCOM 

000000- 

Cl  DRV 

000002- 

CODRV 

000003- 

COSIN 

000002SX 

CRDRV 

000001- 

CSW 

000002* 

C.l 

000121  * 

END 

000073' 

ENT1 

000000* 

ENT  2 

000025* 

ENT  3 

000045’ 

ENT4 

000075* 

FIN 

000015* 

IMINC 

000133* 

IMSUM 

000132* 

IOEUF 

000126* 

Ml  7B 

000122* 

MASK 

000003SX 

MSKMS 

000123* 

PHASE 

000070* 

REINC 

000131 » 

RESUM 

000130' 

RETUR 

000134* 

SAMPL 

000127* 

STOP 

000021* 

SW1 

000102* 

SW2 

000050* 

TTMAS 

000124* 

;aidrv*  aibuf*  didrv*  clock 
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. TI TL  AI DRV 

3 AI DRV  IS  A  MASTER  SUBROUTINE  FOR  BUFFERING  COMMUNICA¬ 
TIONS  WITH  THE  ANALOG  INTERFACE  UNIT.  THE  ROUTINE 
; MAKES  USE  OF  DIDRV  TO  BUFFER  DIGITAL  SIGNAL  COMMUNICA¬ 
TION  WITH  THE  AIU*  AND  THE  CHCOM  PACKAGE  TO  BUFFER 
; CHANNEL  SIGNAL  COMMUNICATION.  AI DRV  BUFFERS  THE  LOW 
3  SPEED  (MODULATION)  ANALOG  SIGNAL  COMMUNICATIONS  ITSELF. 
*THE  ROUTINE  ASSUMES  THAT  IT  HAS  BEEN  CALLED  BY  A  ASI 
J (ANALOG  SIGNAL  INPUT *  A3)  INTERUPT.  THE  GLOBAL  ENTRY 
* POINT  IS  §AIDRV.  THE  ROUTINE  NEEDS  NO  INITIALIZATION. 
;ALL  COMMUNICATIONS  WITH  THE  REALTIME  SIMULATION  PROGRAM 
3  IS  THROUGH  A  BUFFER  WHOSE  STARTING  LOCATOIN  IS  LISTED 
3  AT  AIBUF.  THE  BUFFER  FORMAT  IS  AS  FOLLOWS* 

;aibuf*  buf  ;buf  starting  location 

;buf*  .blk  i  ; data  signal  and  control 

3  ; BUFFER*  BIT  O-DATA  BIT 

;  ;dit  Ibo  linear  xmission 

3  i  a 1  angle  xmission 

3  3  OVER  THE  CHANNEL 

;  ;b:t  2=1;  it  is  cleared 

;  J BEFORE  XMISSION  OF  THE 

3  3 BUFFERED  SIGNALS. 

3  3 BITS  12-15-CONTRL  STATE 

3  .BLK  1  j ANALOG  SIGNAL  SAMPLE 

3  .BLK  2  OR  4  3 CHANNEL  SIGNAL  SAMPLES 

5  3  IN  THE  FORMAT  LISTED  IN 

3  3  THE  CHCOM  WRITE-UP 

3 AT  THE  BEGINING  OF  A  AIU  FRAME  AIBUF  CONTAINS  THE 
; SIGNAL  SAMPLES  TO  BE  OUTPUT ED  THROUGH  THE  AIUJ  AT  THE 
3 END  OF  THE  FRAME*  THE  BUFFER  CONTAINES  THE  SIGNAL 
J SAMPLES  INPUT ED  THROUGH  THE  AIU. 

J SUPERNOVA  CORE  EXECUTION  TIME-33.2  USEC.S 
3 TOTAL  LENGTH-26.  LOCATIONS J  33.  FOR  THE  TOTAL  PACKAGE 


000042  . DUSR  AIU-42  JAIU  DEVICE  CODE 

•  ENT  AI  DRV*  AIBUF*  DIDRV*  CLOCK 

. EXTD  CHCOM 

•  ZREL 


00000-000000* 

00001-177776 

AI DRV * 
AIBUF* 

ENT  1 

-2 

OOC 02-00002 7* 

00003-000000 

00004-000000 

DIDRV* 

CLOCK* 

•  NREL 

ENT  2 

OD 

00000*024440 

ENT1 1 

LDA 

1* 

DATA 

00001*054437 

STA 

3* 

DATA 

00002*074442 

DIA 

3* 

AIU 

00003*020434 

LDA 

0* 

M17B 

00004  *  1 1 7400 

AND 

0* 

3 

00005*020431 

LDA 

0* 

DMASK 

00006*107400 

AND 

0# 

1 

J ANALOG  INP  INTRPT  ENTRY 
;AIU  COMMUNICATIONS 
J BUFFER  LOCATION 
3  DATA  INPUT  INTRPT  ENTRY 
3 AIU  FRAME  COUNTER 


;NEW  DATA  INPUT  SAMPLE 
I  SAVE  RETURN  ADDRESS 
; INPUT  NEW  ANALOG  SIGNAL 
I A  CONTROL  STATE  SAMPLES 
j ANALOG  SIGNAL  MASK 
IMASK 

I DATA#  CONTRL  STATE  MASK 
JMASK 
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It  ** 

1  I 

**■ ) 

;  } AI  DRV,  AIBUF,  DIDRV,  CLOCK  PAGE  0  OF  2 


*  <J ' 

00007 ’030001 - 
00010l*021000 

LDA 

2j 

AIBUF 

;aiu  comm  6uf  location 

'  - 

LDA 

0, 

0, 

2' 

JNEW  DATA,  CONTROL  WORD 

00011*045000 

STA 

1, 

0, 

2 

S SAVE  NEW  DATA  SAMPLE 

00012*025001 

LDA 

1, 

1, 

2 

5 NEW  ANALOG  SIG  SAMPLE 

000 1 3  *05500 1 

STA 

3, 

1> 

2 

;SAVE  NEW  ANALOG  SAMPLE 

00014*125200 

MO  VR 

1, 

1 

■ 

i APPEND  DATA  BIT 

00015*101100 

MOVL 

0, 

0 

,'a-'  * 

G001 6*125100 

MOVL 

1, 

1  , 

’ 

00017*065142 

i  DOAS 

1, 

AIU 

,* OUTPUT  ANALOG  SIGNAL  & 

i DATA  SAMPLES 

00020*151400 

INC 

2, 

2 

1INCRE  BUFFER  LOCATION 

00021*101100 

MOVL 

0, 

0 

;TEST  FOR  ACTIVE  BUFFER 

h 

‘ 

00022*101113 

MOVL# 

0, 

0, 

SNC 

}  COMMUNICATIONS 

t  - 

00023*152040 

>  ADCO 

2, 

2 

,*IF  NOT  DISABLE 

*  ft 

; CHANNEL  COMM 

t 

00024*141500 

INCL 

2, 

0 

i GENERATE  CH  COMM  IOBUF 

1ADDR  f<  ADD  CONTROL  BIT 

00025*006001$ 

JSR 

0CHCOM 

^INITIALIZE  CHANNEL  COMM 

00026*002412 

JMP 

0DATA 

i RETURN 

1 DIDRV  IS  AM  ANALOG  INTERFACE  UNIT  DATA  SIGNAL  INPUT 
1  DRIVER,  WHICH  IS  AN  INTIGRAL  PART  GF  THE  AI DRV  PACKAGE. 
1  THE  ROUTINE  HANDLES  THE  DATA  AND  CONTROL  STATE  INPUT 
J TRANSFERS  FROM  THE  AIU.  IT  ASSUMES  THAT  IT  HAS  BEEN 
;CALL£D  BY  A  DSI  (DATA  SIGNAL  INPUT,  42)  INTERUPT.  THE 
i ROUTINE  ALSO  INCREMENTS  AN  AIU  FRAME  COUNTER  AND 
} RETURNS  TO  AC3+2  TO  SIGNAL  THE  START  OF  A  NEW  AIU 
I  SAMPLE  FRAME.  THE  REALTIME  SIMULATION  PROGRAM  NOW  HAS 
lUNTIL  THE  ANALOG  SIGNAL  INTERUPT  TO  STORE  THE  NEW  AIU 
; BUFFER  ADDRESS  IN  AIBUF.  THE  GLOBAL  ENTRY  POINT  IS 
J0DIDRV.  THE  ROUTINE  NEEDS  NO  INITIALIZATION. 
i SUPERNOVA  EXECUTION  TIME=7.1  USEC.S 
S TOTAL  LEMGTH=7  LOCATIONS 


00027 ‘060542 

ENT2: 

DIAS 

0,  AIU 

} INPUT  NEW  DATA  SAMPLE 

00030*040410 

. 

STA 

0,  DATA 

} SAVE  IN  DATA 

00031*01000/'- 

IFF 

CLOCK+1 

; INCREMENT  AIU  FRAME 

1  COUNTER 

00032*001402 

JMP 

2,  3 

; RETURN 

00033*010003- 

ISZ 

CLOCK 

;IF  CARRY,  INCREMENT 

; UPPER  COUNTER  WORD 

00034*001402 

JMP 

2,  3 

; RETURN 

00035*001402 

JMP 

2,  3 

00036*100017 

DMASKl 

100017 

;data,  contrl  state  mask 

00037*177760 

M17B* 

177760 

; ANALOG  SIGNAL  MASK 

C 00001 

BATA* 

«BLK 

1 

S DATA  INPUT  STORAGE 

•END  $  END  OF  AIDRV 
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AIBUF 

OOOOOl- 

A I  DRV 

000000- 

CHCOM 

000001SX 

CLOCK 

000003- 

DATA 

000040 1 

DIDRV 

000002- 

DMASK 

000036' 

ENT1 

000000' 

ENT2 

000027* 

Ml  7B 

000037' 

-182- 


* INTRP*  CMASK*  MASK 
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•TITL  INTRP 

5 INTRP  IS  A  MASTER  INTERUPT  PROGRAM  FOR  ANSWERING 
; HARDWARE  INTERUPTS  AND  PASSING  CONTROL  OF  THE  COMPUTER 
* ON  TO  THE  APPROPRIATE  SOFTWARE  DRIVER  ROUTINES.  THIS 
; PROGRAM  ALSO  "CONTROLS  TRANSFER  BETWEEN  BACKGROUND  AND 
iREALTIME  PROCESSING  LEVELS.  INTRP  USES  THE  FOLLOWING 
5 SUBROUTINES:  ABEND  (ADNORMAL  TERMIN) 

*  START  (SYSTEM  INITIALIZATION)  RPROG  (REALTIME  PROGRAM) 

JTIDRV  (TTI  DRIVER)  TODRV  (TTO  DRIVER) 

*CODRV  (CH  OUT  DRIVER)  DIDRV  (DATA  IN  DRIVER) 

;AIDRV  (ANALOG  IN  DRIVER)  CRDRV  (CH  RE  IN  DRIVER) 

1  Cl DRV  (CH  IM  IN  DRIVER) 

i INTRP  ASSUMES  THAT  IT  HAS  BEEN  ENTERED  THROUGH  AN 
; HARDWARE  INTERUPT.  THE  ENTRY  POINT  IS  INTRP.  INTRP 
* REQUIRES  NO  INITIALIZATION.  INTRP  USES  BIT  0  OF  MASK 
;AS  A  REALTIME  PROGRAM  MASK.  IT  ASSUMES  THE  ONLY 
iPERI FERAL  DEVICES  ARE  THE  TELETYPE  &  THE  ANALOG  INTER¬ 
FACE  UNIT.  SUPERNOVA  CORE  EXECUTION  TIMES  ARE: 

1  NORMAL  INTERUPT  EXECUTION  TIME  =55.8  USEC.S 

*  MULTI -INTERUPT  INCREMENTAL  TIME  =36.7  USEC.S 

J  MAXIMUM  LATENCY  TIME  =50. P  USEC.S 

;  INTERUP',  TO  DRIVER  ENTRY  DELAY  =28.3  USEC.S 

JTOTAL  LENGTH=119.  LOCATIONS 


•  ENT 

INTRP* 

CMASK* 

MASK 

•  ■EXTD 

ABEND* 

START* 

RPROG*  TIDRV*  TODRV 

•  EXTD 

DI DRV* 

AI DRV* 

CRDRV*  Cl  DRV*  CODRV 

000000 

•  LOC 

0 

00000  002002$ 

JMP 

©START 

* MANUAL  START*  POWER 
;DOWN  RESTART*  OR  HARD¬ 
WARE  INTERUPT  RETURN 
; ADDRESS 

00001  000000’ 

INTRP 

iMASTER  INTERUPT  ROUTINE 
; ADDRESS 

00002  002002$ 

JMP 

©START 

} MANUAL  START  POINT 

00003  000003 

JM? 

• 

0000^  000000 

CMASK: 

•  ZREL 

0 

; CURRENT  PERI FERALS  MASK 

00000-000000 

MASK: 

0 

i CURRENT  MASK 
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I INTRP# 

CMASK# 

MASK 

0 

o  0  f 

& 

•  NREL 

" 

00000*000401 

INTRPS 

JMP 

•  + 1 

’  i 

00001 *040554 

STA 

0#  BGS+O 

6-y 

o 

V  O* 

00002*044554 

STA 

i#  BCS+1 

>  A 

00003  *050554 

STA 

2#  BCS+2 

00004*054554 

STA 

3#  BCS+3 

00005*020000 

LDA 

0#  0 

00006*101100 

MOVL 

0#  0 

it 

00007'040552 

STA 

0#  BCS+4 

00010*000411 

JMP 

PTEST 

■  <■ 

00011 '100002S 

RTNl 

9 START 

K 

* 

0 

00012*040550 

STA 

0#  RCS+O 

•1 

00013*044550 

STA 

1#  RCS+1 

w  o. 

o; 

00014*050550 

STA 

2#  RCS+2 

00015*054550 

STA 

3#  RCS+3 

00016*020000 

LDA 

0#  0 

00017*101100 

MOVL 

0#  0 

5  < 

> 

00020*040546 

STA 

0#  RCS+4 

00021 *020473 

pTest* 

LDA 

0#  JSTART 

< 

00022*040000 

STA 

0#  0 

V 

00023*063777 

SKPDZ 

CPU 

00024*063077 

HALT 

00025 '061477 

RTESTt 

INTA 

0 

i> 

00026  101015 

MOV# 

0#  0#  SNR 

l 

00027*000442 

JMP 

EXIT 

00030^24463 

LDA 

1#  C7 

00031*030464 

LDA 

2#  LINTR 

c 

o 

00032*107400 

AND 

0#  1 

00033*133000 

ADD 

1#  2 

0 

00034*007000 

JSR 

eo#  2 

o  , 

00035*000411 

JMP 

RETURN 

00036*000436 

JMP 

TTEST 

5'« 

-184- 
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IINTRP  ENTRY  POINT 
# PRO GRAM  LEVEL  SWITCH 

;SAVE  BACKGROUND  PROGRAM 

; LEVEL  CPU  STATE 

;save  ACO 

ISAVE  AC1 

ISAVE  AC2 

ISAVE  AC 3 

;SAVE  CARRY#  RETURN  ADDR 


I SPARE  LOCATION  -  RETURN 
I ADDRESS 

ISAVE  REALTIME  PROGRAM 

I LEVEL  CPU  STATE 

ISAVE  ACO 

ISAVE  AC  1 

ISAVE  AC 2 

ISAVE  AC 3 

ISAVE  CARRY#  RETURN  ADDR 


IRESTORE  RESTART  INSTR 
I TO  LOCATION  0 
I TEST  FOR  POWER  FAILURE 
HF  SO  HALT 

I SERVICE  PEI  FERAL  INTRPT 
IACK  INTERUPT 
I TEST  FOR  INTERUPT 

I IF  NONE  RETURN 
I  DEV  CODE  TRUNCATION  MSK 
I  DRV  ROUTINE  TABLE  ADDR 
I MASH  DEVICE  CODE 
I  GEN  DRV  ROUNTINE  POINTB 
I  EXECUTE  DRIVER  ROUTINE 

I NORMAL  RETURN 

I  TELETYPE  I/O  ENABLED 


5INTRP,  CMASK,  MASK 
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00037  *004444 

JSR 

SWITCH 

;new  aiu  frame  started 

j RESTART  REALTIME  PROG 
1SD  CPU  STATE  STOR  AREAS 

00040*101113 

MOVL# 

0,  0>  SNC 

JTEST  FOR  REALTIME  MODE 

00041 *000440 

JMP 

TOERR 

;IF  SO  ERR  HALT 

00042*060177 

INTEN 

; ENABLE  INTERUPT 

00043*006003$ 

JSR 

©RPROG 

S CALL  REALTIME  PROGRAM 

00044*060277 

INTDS 

; DISABLE  INTERUPT 

00045*004436 

JSR 

SWITCH 

;sw  CPU  STATE  STOR  AREAS 

00046*000412 

RETURN* 

JMP 

.  +  12 

; RESTORE  CPU  STATE 
; PRO GRAM  LEVEL  SWITCH 

00047*020517 

LDA 

0»  RCS+4 

; RESTORE  REALTIME  PROG 

5 LEVEL  CPU  STATE 
; RESTORE  CAKPY,  RTN  ADDR 

00050*101220 

MOVER 

0,  0 

00051*040740 

STA 

0,  RTN 

iSAVE  RETURN  ADDR  IN  RTN 

00052*034513 

LDA 

3,  RCS+3 

; RESTORE  AC3 

00053*030511 

LDA 

2,  RCS+2 

; RESTORE  AC2 

00054*024507 

LDA 

1>  RCS+1 

; RESTORE  AC1 

00055*020505 

LDA 

0*  RCS+O 

i RESTORE  ACO 

00056*040476 

STA 

0>  ACO 

;SAVE  TEMPORARILY  IN  ACO 

00057*000746 

JMP 

RTEST 

ITEST  FOR  MORE  INTERUPTS 

00060*020501 

LDA 

0*  BCS+4 

* RESTORE  BACKGROUND  PROG 
; LEVEL  CPU  STATE 
; RESTORE  CARRY,  RTN  ADDR 

00061*101220 

MOVZR 

0,  0 

00062*040727 

STA 

0,  RTN 

;SAVE  RETURN  ADDR  IN  RTN 

00063*034475 

LDA 

3,  BCS+3 

; RESTORE  AC 3 

000  64*030473 

LDA 

2»  BCS+2 

; RESTORE  AC2 

00065*0241171 

LDA 

1*  BCS+l 

; RESTORE  AC1 

00066*020467 

LDA 

0*  BCS+O 

; RESTORE  ACO 

00067*040465 

STA 

0,  ACO 

i SAVE  TEMPORARILY  IN  ACO 

00070*000735 

JMP 

RTEST 

ITEST  FOR  MORE  INTERUPTS 

00071 *020463 

EXIT* 

LDA 

0/  ACO 

5 RELOAD  ACO 

00072*060177 

INTEN 

; ENABLE  INTERUPT 

00073*002716 

JMP 

8  RTN 

; RETURN  FOR  THE  INTERUPT 

00074*063710 

TTEST* 

SKPDZ 

TTI 

ITEST  TTI 

00075*006004$ 

JSR 

©TIDRV 

1 i F  DONE  SERVICE 

00076*060711 

SKPDZ 

TTO 

JTEST  TTO 

00077*006005$ 

JSR 

©TODRV 

IIF  DONE  SERVICE 

00100*0007(16 

JMP 

RETURN 

; RETURN 

00101*006001$ 

TOERR* 

JSR 

8  ABEND 

; REALTIME  PROGRAM  TIME- 

00102*000126* 

TOMESS 

i OUT  -  ERROR  TERMINATE 

-isr.- 


;INTRP,  CMASK,  MASK 
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00103  *020675 

SWITCH: 

LDA 

0,  INTRP 

J SWITCH  CPU  STATE 

00104  *024742 

LDA 

l,  RETURN 

S STORAGE  AREAS 

00105*040741 

STA 

0,  RETURN 

00106*044672 

STA 

INTRP 

00107 *020000- 

LDA 

Oj  MASK 

i COMPLEMENT  REALTI ME 

00110*103240 

ADDOR 

0,  0 

; PRO GRAM  MASL  BIT 

00111*040000- 

STA 

0*  MASK 

J SAVE  NEW  MASK 

00112*001400 

JMP 

0*  3 

I RETURN 

00113*000007 

C7: 

7 

; DEVICE  CODE  TRUNCATION 

iMASK 

00114*0020025 

JSTART: 

JMP 

6START 

i MANUAL  START  OR  POWER 

i DVN  RESTART  INSTRUCTION 

00115*000116* 

LINTR: 

IMTRL 

;drv  routine  table  addr 

00116*100004$ 

INTRL: 

OTI DRV 

; PERI  FERAL  DRIVER 

; ROUTINE  LOOKUP  TABLE 

i TTI  (10)  DRIVER 

00117'! 00005$ 

3T0DRV 

JTTO  (11)  DRIVER 

00120  ’  100006S 

GDI  DRV 

IDS  I  (42)  DRIVER 

00121*1000075 

0AI DRV 

JASI  (43)  DRIVER 

00122*100010$ 

7CRDRV 

I  CRI  (44)  DRIVER 

00123*1000115 

6CIDRV 

;CII  (45)  DRIVER 

00124*100012$ 

§CCDRV 

ICSO  (46)  DRIVER 

00125*100001$ 

OABEND 

;N0  KNOW  DEVICE  CODE 

00126'0u0000 

TOMESS: 

0 

; REALTI ME  PROGRAM  TIME- 

JOUT  ERR  MESSAGE 

00127*005215 

•  TXTE 

$<2 1 5>< 1 2> 

00130*125012 

<12>* 

00131*125252 

** 

00132 '142652 

*E 

00133*151322 

RR 

00134*151317 

OR 

00135*044240 

H 

00136*146101 

AL 

00137*035324 

T: 

00140*151240 

R 

00141 *040705 

EA 

00142*152314 

LT 

00143*046711 

IM 

00144 ' 120305 

E 

00145*151120 

PR 

00146*043717 

OG 

00147*152240 

T 

00150*04671 1 

IM 

00151*147705 

EO 

00152*152125 

ITT 

00153*000000 

$ 

000001 

ACO: 

•  BLK 

1 

J TEMPORARY  ACO  STORAGE 

000005 

BCS: 

•  SLK 

5 

IBACKGRD  CPU  STATE  STORE 

000005 

RCS: 

.BLK 

5 

JRELTIME  CPU  STATE  STORE 

.END 

i  END  OF  INTRP 
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ABEND 

OOOOO 1SX 

ACO 

000154’ 

AIDRV 

OOOOO 7$X 

P"S 

000155' 

C7 

000113’ 

Cl  DRV 

00001 1$X 

CMASK 

000004 

CODRV 

000012SX 

CRDRV 

000010SX 

DIDRV 

OOOOO 6SX 

EXIT 

000071  ' 

INTEL 

000116* 

INTRP 

Oooooo’ 

JSTAR 

000114’ 

LINTR 

000115’ 

MASK 

000000- 

PTEST 

000021 ' 

RCS 

000162* 

RETUR 

000046* 

RPROG 

000003SX 

RTEST 

000025’ 

RTN 

000011 ’ 

START 

000002SX 

SWITC 

000103' 

TIDRV 

000004SX 

TODRV 

000005SX 

TOERR 

000101  ’ 

TOMES 

000126' 

TTEST 

000074’ 

3 START 
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•TITL  START 

j START  IS  AN  INITIALIZATION  AND  DACK GROUND  PROGRAM 
j INITIATION  PROGRAM*  THE  GLOBAL  ENTRY  POINT  IS  §START* 
; START  USED  SUBROUTINES  PRINT  AND  BPROG* 

; TOTAL  LENGTH=39.  LOCATIONS 


000042 

-DUSR 

AIU=42 

•  ENT 

START 

•  EXTD 

•  ZREL 

CMASK,  MASK, 

PRINT,  BPROG 

00000-000000  * 

STARTS 

•  NREL 

ENTRY 

; START  ENTRY  LOCATION 

00000*062677 

ENTRY* 

IORST 

UNITIALIZE  PERI FERALS 
; DISABLE  INTERUPTS 

00001 *020001$ 

LDA 

0,  CMASK 

3  CURRENT  PERI FERALS  MASK 

00002*040002$ 

STA 

0,  MASK 

,  3  SAVE  IN  CURRENT  MASK 

00003  *  101212 

■ 

MOVRF 

0#  0,  SZC 

1TE5T  FOR  TTY  ONLINE 

00004*000413 

JMP 

SAIU 

31 F  NOT  SKIP 

00005*126400 

SUB 

1,  1 

i WAIT  FOR  TTY  WARM-UP 

00006*060011 

WAITS 

NIO 

TTO 

00007*060011 

NIO 

TTO 

00010*060011 

NIO 

TTO 

00011*060011 

NIO 

TTO 

00012*060011 

NIO 

TTO 

00013*060011 

NIO 

TTO 

00014*125404 

INC 

1,  1,  SZR 

00015*000771 

JMP 

WAI* 

00016*0651-1 1 

DOAS 

1,  TTO 

3  START  TTO 

00017*060142 

SAIUS 

NIOS 

AIU 

1 START  AIU 

00020*024411 

LDA 

1,  C42 

;dsi  device  code 

00021*071477 

INTA 

2 

JWAIT  FOR  J2EGINING  OF 

00022*132414 

3  US# 

1,  2,  SZR 

3 AN  AIU  SAMPLE  FRAME 

00023*000776 

JMP 

»  -2 

00024*062177  , 

DOBS 

0,  CPU 

J TRANSMIT  CURRENT  MASK 

1 ENABLE  INTERUPTS 

00025*006003$ 

JSR 

SPRINT 

J  PRINT  STARTUP  KS3SASS 

00026*000032* 

SMESS 

)  STARTUP  KESSAG&  ftoi Zih.**- 

00027*006004$ 

JSR 

OBJ’SOG 

3 CALL  BACKGROUND 

00030*000400 

JMP 

0 

J  PROGRAM  PACilAGE 

J START 
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00031 *000042 
00032*000000 
C>e0?3*005215 
00034*051412 
00035*051531 
00036*142724 
00037*120115 
00040*142722 
00041*152123 
00042*151101 
00043*144724 
00044*043516 
0004,5*005215 
00046*000012 


C42: 

SMfiSS : 

•  TXTE 

<12>S 

YS 

TE 

M 

RE 

ST 

AR 

TI 

NG 

<215><12> 

<12>$ 


42 

0 

$<2 1 5><12> 


;dsi  intrupt  device  code 

; STARTUP  MESSAGE 


^1D 


;END  OF  START 


BPROG 

0C0004SX 

C42 

00L031 * 

CMASK 

0000^ 15X 

ENTRY 

OOOOOC 

MASK 

000002SX 

PRINT 

000003SX 

SAIU 

000017' 

SMESS 

000032* 

START 

000000- 

v;ai  t 

000006* 

-  J  90- 


;  A3E3JD 
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«TITL  ABEND 

i ABEND  IS  AN  ABNORMAL  END  OF  JOB  TERMINATION  ROUTINE. 
;IT  IS  CALLED  AS  FOLLOWS: 

}  J SR  ©ABEND  .-ERROR  TERMINATION 

}  MESSAGE  S ERROR  PRINTOUT  ADDRESS 

}  WHERE  THE  MESSAGE  FORMAT  IS  AS  FOLLOWS: 

; MESSAGE:  0  3 BYTE  POINTER 

3  • TXTE  STEXT  TO  BE  PRINTED  UPON  TERMINATIONS 

5 THE  ERROR  MESSAGE  NEED  NOT  BE  INCLUDED  IT  MOST  CASES. 

; AFTER  PRINTING  THE  ERROR  MESSAGE,  THE  LOCATION  FROM 
J WHICH  ABEND  WAS  CALLED+ 1  IS  PRINTED  IN  OCTAL,  AND  THE 
^COMPUTER  HALTED.  DURING  THIS  PERIOD  ALL  OTHER 
3 INTERUPTS  ARE  DISABLED. 

; TOTAL  LENGTH=32.  LOCATIONS 


.ENT 

ABEND 

•  EXTD 
.  ZREL 

START,  PRINT, 

OCTPR 

OOCOO-OOOOOO' 

ABEND: 

•  NREL 

ENTRY 

j ABEND  ENTRY  LOCATION 

OOOOO  '020420 

ENTRY: 

LDA 

0,  ERRMSK 

; ABEND  INTERUPT  MASK 

00001 *062177 

DOBS 

0,  CPU 

j TRANSMIT  MASK 

5  ENABLE  INTERUPTS 

00002  *054436 

STA 

3,  CALL 

;SAVE  CALLING  LOCATION* 1 

;at  call 

00003*035400 

LDA 

3,  0,  3 

00004*021400 

LDA 

0,  0,  3 

JERR  MESSAGE  EYTSPOINTER 

00005*101014 

MOVf? 

0,  0,  SZR 

;TEST  FOR  CLOSED  FILE 

00006*034413 

LDA 

3,  LERRM 

;IF  FILE  OPEN 
; ASSUME  ILLEGIT 
; REPACE  WITH 
; ERRMES 

00007*054402 

STA 

3,  .  +2 

j PRINT  ERROR  MESSAGE 

00010*006002$ 

JSR 

©PRINT 

00011*000022* 

ERRMES 

00012*020426 

LDA 

0,  CALL 

J PRINT  CALLING  LOC+1 

00013*006003$ 

JSR 

0OCTPR 

00014*006002$ 

JSR 

©PRINT 

;CR  -  LF 

00015*000000 

0 

00016*063077 

HALT 

;halt  PROCESSOR 

00017*002001$ 

JMP 

©START 

; ABEND 
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00020’ 177776 

ERRMSK: 

177776 

00021 *000022’ 

LERRM: 

ERRMES 

00022 '000000 

ERRMESS 

0 

00023*005215 

•  TXTE 

$<21 5> 

00024*125012 

<12>* 

00025*125252 

** 

00026*040652 

*A 

00027*142502 

BE 

00030*042116 

ND 

00031 *040640 

A 

00032*120324 

T 

00033*147714 

LO 

00034 '040703 

CA 

00035*144724 

TI 

00036*047317 

ON 

00037*000000 

$ 

000001 

CALL:  *BLK 

1 

•  END 


JABEND  INTERUPT  MASK 
; DEFAULT  PRINTOUT  LOC 

5 DEFAULT  ERROR  PRINTOUT 

12> 


; CALLING  LOC  STORAGE 
;END  OF  ABEND 
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ABEND  000000- 
CALL  000040  * 
ENTRY  000000* 
ERRME  000022’ 
ERRMS  000020 ’ 
LERRM  000021* 
OCTPR  000003SX 
PRINT  000002SX 
START  00000 1SX 
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;dscpr,  octpr 
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•TITL  DECPR  ■ 

i DECPR  AND  OCTPR  ARE  NUMERBICAL  PRINTOUT  SUBROUTINES. 
JDEC°R  PERFORMS  SIGNED  DECIMAL  CONVERSIONS,  AND  OCTPR 
;UNSIGNED  OCTAL  CONVERSIONS.  EACH  GENERATES  AN  EIGHT 
}  PRI NTABLE  CHARACTER  ASCII  FIELD  V.HICH  IS  PRINTED 
;BY  SUBROUTINE  PRINT.  IT  HAS  THE  FOLOVrlNG  FORMAT: 

;  DECIMAL:  *  -DDDDD.S 

y  OCTAL:  S  DDDDDD  £ 

;.NEITJI£R  PROGRAM  NEEDS  INITIALISATION,  AND  BOTH  MAY  BE 
WINTER UPTED.  TOTAL  LENGTH=^^  LOCATIONS 

60. 


.ENT  DECPR,  OCTPR 
■  .  EXTD  PRINT 

.  ZREL 


00000-000006' 

1  DECPR: 

ENT2 

i DECPR  ENTRY  LOCATION 

OOOOl -oooooo  • 

OCTPR: 

ENT  1 

; OCTPR  ENTRY  LOCATION 

1 

o,NREL 

00000  '054473 

ENT  1 : 

STA 

3,  RETURN 

t,*SAVE  RETURN  ADDRESS 

OOOOl *034456 

LDA 

3,  CODEL 

;o,  DEL  CHARACTER^ 

00002*030451 

LDA 

2,  CIO 

i 1 0  OCTAL 

00003*105020 

KOVZ 

0,  1 

1  CLEAR  CARRY 

Q0004*020452 

i 

RDA 

0,  CSPNUL  : 

ISP,  NULL  CHARACTERS 

00005*000410 

JMP 

FILL 

5  INITIALIZE  PRINT  PUFFER 

00006*054465 

1 

ENT2 : 

STA 

3,  RETURN 

y SAVE  RETURN  ADDRESS 

00007*034454 

LDA 

3,  CDELSP 

1DEL,  SP  CHARACTERS 

00010*030444 

LDA 

2,  C1,0. 

MO  DECIMAL 

0001 1 *105020 

l 

MOVZ 

0,  1 

; CLEAR  CARRY 

OOQ12 '125112 

MOVLif* 

1,  1,  SZC 

1TEST  FOR  NECITIVE  NUM 

00013*124460 

SJEGC 

1,  1 

1 1  FSO  NEC-,  CRRY  =  1 

00014*020441 

LDA 

0,  C.NUL 

J.,  NULL  CHARACTERS 

00015*010445 

FILL: 

ISZ 

Bl?F 

,*  INITIALIZATION  ROUTINE 

^0016*014444 

DSZ 

BUF 

,*UAIT  FOR  FREE  BUFFER 

Oo  1 7*000776 

JMP 

.  -2 

00020 '040452 

1  STA' 

0,  BUF+10 

y INITIALIZE  PRINT  PUFFER 

00021 '054447 

1 

STA 

3,  BUF+6 

00022  '054445 

STA 

3,  BUF+5 

00023  *054443 

STA 

3,  BUF+4 

00024*054441 

STA 

3,  DUF+3 

00025*054437 

STA 

3,  BUF+2 

00026 '03443 1 

LDA 

3,  CODEL 

JO,  DEL  CHARACTERS 

00027  *054442 

STA 

3,  BUF+7 

-194- 


II 


OK 


o 

A  < 

t  t 

;decpr. 

OCTPR 
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Oj  , 

00030  *02043 1 

LDA 

0*  INSTR 

; VARIABLE  STORE  INSTR 

00031 *040410 

STA 

0,  STORE 

UNITIALIZE  CHAR  STORAGE 

cO' 

00032*125015 

LOOP: 

MOV# 

1,  1,  S\JR 

j NUM  TO  ASCII  CONV  LOOP 

j  MOVE  QUOTIENT.  TO  NUMER 

K  7 

> TEST  FOR  END  CONVERSION 

i  <*) 

Tt  i 

^  0  > 

00033*000411 

JMP 

SIGN 

;YES  JMP  SGN  TST 

'< 

00034 ’175200 

MOVR 

3,  3 

J  SAVE  CARRY  BIT 

00035*102400 

SUB 

0,  0 

1  CLEAR  UPPER  HALF  NUMER 

00036*073101 

DIV 

i  DIVIDE  BY  NOTATION  BASF. 

*  1 

00037*175120 

MOVZL 

3*  3 

i RESTORE  CARRY >  AC 3 

00040*163000 

ADD 

3j  0 

iADD  REMAINDER  TO  0  CHAR 

V  ^ 

1'  v«y 

00041 *040430 

STORE: 

STA 

0,  BUF+7 

; STORE  NEIv  CHAR  IN  BUF 

00042*014777 

DSZ 

.-1 

} DECREMENT  STORAGE  LOG 

%5 

00043*000767 

JMP 

LOOP 

;loop 

ik 

00044*101062 

sign: 

MOVC 

Oj  0#  SZC 

;test  for  negitive  num 

i- 

0>\ 

;C0MPL  NEG  NUMBER  FLAG 

00045 ’000403 

JMP 

OUTPUT 

;IF  NOT  PRINT 

00046*020412 

LDA 

Oj  CDELMI 

1  DEL#  -  CHARACTERS 

00047*000772 

JMP 

STORE 

JINCERT  MINUS  SIGN 

o' 

00050*0060013 

OUTPUT: 

JSR 

©PRINT 

J PRINT  BUFFER  CONTENSE 

<f- 

00051 *000062' 

BUF 

< 

0 

-»'V 

00052*002421 

JMP 

©RETURN 

; RETURN 

t 

t 

00053 '000010 

CIO: 

10 

;  10  OCTAL 

* 

00054*000012 

CIO.: 

10. 

J10  DECIMAL 

00055 '000056 

C.NUL: 

56 

}.j  NULL  CHARACTERS 

00056'000040 

CSPNUL: 

40 

ISP,  NULL  CHARACTERS 

00057*177460 

codel: 

377B7+60 

iOj  DEL  CHARACTERS 

00060*026777 

CDELMI : 

55B7+377 

J  DEL.  -  CHARACTERS 

00061 *040430 

INSTR: 

STA 

0>  BUF+7+. 

-store; varai able  store  instr 

v 

;base  value 

<?> 

00062 '00O000 

buf: 

0 

; PRINT  BUFFER  byteptr 

Is 

00063*020377 

cdelsp: 

40B7+377 

;del,  sp  characters 

000007 

•  BLK 

7 

;buffff.  variable  storage 

000001 

RETURN: 

•  BLK 

1 

; RETURN  ADDRESS  STORAGE 

, 

.END 

;end  of  decpr.  octpr 
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BUF 

000062' 

CODEL 

000057' 

CIO 

000053' 

CIO. 

000054 ' 

CDELM 

000060' 

CDELS 

000063' 

nspjju 

000056' 

C.NUL 

000055' 

DECPR 

000000- 

ENT1 

000000' 

ENT2 

000006' 

FILL 

000015' 

INSTR 

000061  * 

LOOP 

000032' 

OCTPR 

000001- 

OUTPU 

000050' 

PRINT 

ooooo isx 

RETUR 

000073' 

SIGN 

000044' 

STORE 

000041 ' 

196 


PACE  1  OF  1 


9 


PRINT 


f 


• T I TL  PRINT 

IPRINT  IS  A  PRINT  SUBROUTINE  USED  IN  CONJUNCTION  WITH 
JTHE  HARDWARE  INTERUPT  TTO  DRIVER  ROUTINE.  THE  CALLING 
I SEQUENCE  IS  AS  FOLLOWS: 


• 

9 

JSR 

©PRINT 

5 PRINT  MESSAGE 

• 

9 

MESSAGE 

J  MESSAGE  FILE  ADDRESS 

I  WHERE 

THE  MESSAGE  FORMAT  IS  AS 

FOLLOWS: 

IMESSAGE: 

0 

IBYTEPOINTER 

• 

9 

.  TXTE 

$TEXT  TO  BE  PRINTEDS 

I IF  MESSAGE=0* 

PRINT  EXECUTES  A 

CARRIAGE  RETURN  AND  LINE 

I  FEED. 

PRINT 

NEEDS  NO  INITIALIZATION*  AND  MAY  BE 

1 I NTERUPTED. 

TOTAL  LENGTH=20» 

LOCATIONS 

.ENT 

PRINT 

»  EXTD 
.ZREL 

CMASK*  TOBUF 

OOOOO-OOOOOO' 

PRINT: 

•  NREL 

ENTRY 

5 PRINT  ENTRY  LOCATION 

00000*020001$ 

ENTRY: 

LDA 

0*  CMASK 

I  TEST  FOR  TELETYPE 

00001 '101212 

MOVR# 

0*  0*  SZC 

00002*001401 

JMP 

1*  3 

>*IF  NONE  RETURN 

00003 '026002$ 

LDA 

1*  ©TOBUF 

;WAIT  FOR  TTO  IDLE 

00004*125004 

MOV 

1*  1*  SZR 

00005 '000776 

JMP 

•  -2 

00006'03J400 

LDA 

2*  0*  3 

; MESSAGE  FILE  LOCATION 

00007*151004 

MOV 

2*  2*  SZR 

1TEST  FOR  ZERO 

00010 '000403 

JMP 

TYPE 

IIF  NOT*  PRINT 

00011 *024407 

LDA 

1*  CCR 

; EXECUTE  CR  -  LF 

I  SET  FIRST  CHARACTER=CR 

00012*030407 

LDA 

2*  LLFF 

I  SET  MESSAGE<=LF*  NULL 

00013*102520 

TYPE: 

SUBZL 

0*  0 

;  l 

00014*041000 

STA 

0*  0*  2 

*  OPEN  MESSAGE  FILE 

00015*050002$ 

STA 

2*  TOBUF 

I  SET  TTO  BUFFER =MESS AGE 

;file 

00016'065111 

DOAS 

1*  TTO 

I TRANSMIT  FIRST  CHAR 

1 (NOMINALLY  A  NULL) 

J START  TTO 

00017*001401 

JMP 

1*  3 

I RETURN 

00020*000215 

OCR: 

215 

ICR  CHARACTER 

00021*000022* 

LLFFt 

LFF 

ILOC  OF  LF*  NULL  FILE 

oooes  *000000 

LFF: 

0 

ILF*  NULL  FILE  BYTEPTR 

00023*000012 

•  END 

12 

ILF*  NULL 

I  END  OF  PRINT 
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CCR  000020' 

CMASK  00000 1 SX 

ENTRY  000000 ' 

LFF  000022' 

LLFF  000021' 

PRINT  000000- 

TOBUF  000002SX 

TYPE  000013* 


JMULT 
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•TITL  MULT 

JMULT  IS  A  SUBROUTINE  TO  PERFORM  2 'S  COMPLEMENT  16  BIT 
JMULT I PLICATION.  THE  CALLING  SEQUENCE  IS: 

J  JSH  0MULT 

JAC0=AC1*AC2J  AC  1 »  AC2*&  AC 3  ARE  DESTROYED. 

JTHE  10UTINE  MAY  BE  INTERUPTLD.  SUPERNOVA  CORE  HARD l./1  RE 
J  MULT/DI  V  EXECUTION  TIME*  INCLUDING  AN  INDIRECT  SUP- 
J ROUTINE  <JUMP= 13*1  USEC.S 
J TOTAL  LENGTH=10.  LOCATIONS 


OOOOO-OOOOOO' 

MULT: 

.ENT 
.  ZREL 

MULT 

ENTRY 

00000 '102620 

ENTRY; 

•  NREL 
SUBZR 

0* 

0 

00001  *101200 

MOVR 

0* 

0 

00002*125142 

MO  VOL 

1* 

Is 

00003 '124400 

NEG 

1* 

1 

00004*151112 

MOVL# 

2s 

2s 

00005*150460 

NEGC 

2, 

2 

00006*073301 

00007*101012 

MUL 

MOV# 

Os 

Os 

00010*100400 

NEG 

0, 

0 

00011*001400 

JMP 

Os 

3 

.END 


J ENTRY  LOCATION 


J GENERATE  ROUNDING 
J CONSTANT 

SZC  J SCALE  AC  1  >  STORE  SIGN>& 

J  TEST  FOR  NEGITIVE  SIGN 
JIF  SO  NEGATE 

SZC  JIS  AC2  NEGITIVE? 

JIF  SO  NEGATE*  & 
JCOMPL  RESLT  SGN 
JMULT I PLY 

SZC  JIS  RESULT  NEGITIVE? 

JIF  SO  NEGATE 

J RETURN 
JEND  OF  MULT 
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ENTRY  000000 • 
MULT  000000- 


5 MODS W,  MDSET 
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•  TT  TL  MODSW 

J MDSET  IS  A  SUBROUTINE  WHICH  ENCODES  A  4  BIT  CONTROL 
; STATE,  PASSED  TO  IT  IN  BITS  12  THRU  15  OF  ACO,  INTO  A 
J16  BIT  CONTROL  STATE  WORD.  THE  CONTROL  WORD  HAS  15 
JZERO  BITS  AND  1  ONE  BIT  IN  THE  BIT  POSITION  GIVEN  BY 
*THE  BINARY  CONTROL  STATE  INPUT.  THE  ENTRY  POINT  IS 
} § MDSET. 

JMODSW  IS  A  SWITCH  TESTING  SUBROUTINE.  IT  IS  CALLED  AS 
} FOLLOWS* 

;  JSR  ©MODSW 

J  MASK 

S  RETURN  LOCATION  FOR  NO  MATCH 

;  RETURN  LOCATION  FOR  MATCH 

; A  MATCH  IS  DEFINED  AS  A  ONE  BIT  IN  THE  MASK  WORD  IN 
5THE  SAME  LOCATION  AS  THE  ONE  BIT  IN  THE  LAST  CONTROL. 

; STATE  WORD  GENERATED  BY  MDSET.  MODSW  DOES  NOT  DESTROY 
;ANY  ACCUMULATOR  OR  CARRY  BIT.  SUPERNOVA  CORE  EXECUTION 
;time,  including  an  INDIRECT  subroutine  jump,  for  no 
JMATCH=>14.G  USEC.S 
; TOTAL  PACKAGE  LENGTH«18.  LOCATIONS 


.ENT 
.  ZREL 

MODSW,  MDSET 

OOOOO-OOOOOO' 

MODSW* 

ENT1 

;modsw  entry  location 

00001-000011* 

MDSET* 

•  MREL 

ENT2 

; MDSET  ENTRY  LOCATION 

00000*040424 

ENT1* 

STA 

0,  ACO 

S SAVE  ACO 

00001*021400 

LDA 

0,  0,  3 

5 MASK  WORD 

00002*17^400 

INC 

3,  3 

;GEN  NO  MATCH  RTN  ADDR 

00003*054422 

STA 

3,  RETURN 

JSAVE  AT  RETURN 

00004*034417 

LDA 

3,  MASK 

J CONTROL  WORD 

00005*117414 

AND# 

0,  "3,  SZR 

:,test  for  match 

00006*010417 

ISZ 

RETURN 

JIF  SO  INCRE  RTN 

00007*020415 

LDA 

0,  ACO 

; restore  aco 

00010*002415 

JMP 

©RETURN 

S RETURN 

00011*024411 

ENT2* 

LDA 

1,  Ml  7 

; CONTROL  STATE  MASK 

00012*123400 

AND 

1,  0 

;mask 

00013*100000 

COM 

0,  0 

;SET  COUNTER 

00014*126420 

SURZ 

1,  1 

; GENERATE  ONE  BIT 

00015*125200 

MOVE 

1,  1 

; ADVANCE  ONE  BIT 

00016*101404 

INC 

0,  U,  SZR 

1TEST  FOR  COPLETE  COUNT 

00017*000776 

JMP 

.-2 

HF  NOT  ADVANCE 

00020*044403 

STA 

1,  MASK 

JSAVE  CONTROL  WORD 

00021*001400 

JMP 

0,  3 

J RETURN 

00022*000017 

Ml  7* 

17 

J CONTROL  STATE  MASK 

000001 

MASK* 

•  BLK 

1 

J CONTROL  WORD  STORAGE 

000001 

ACO* 

.  BLK 

1 

JACO  STORAGE 

000001 

RETURN* 

•  BLK 
.  END 

1 

J RETURN  ADDRESS  STORAGE 
l END  OF  MODSW  «  MDSET 

ACO 

000024 ' 

ENT1 

000000* 

ENT2 

OOOQ11  » 

K 17 

000022* 

MASK 

000023’ 

MDSET 

000001- 

MODSW 

000000- 

RETUH 

000025* 

LPF1K,  LPFD1 t  LPFD2,  LPFD3*  LPFD4 
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•  TITL  LPF1K 

5LPF1K  IS  A  FILE  OF  IMPULSE  RESPOUSE  SAMPLES  OF  A  LIU  EAR 
;PHASE  1.350  KHZ  LOW  PASS  FILTER.  THE  FREQUENCY 
5RESP0NSE  IS  l.Ol  DB  DOWN  AT  1.350  KHZ*  and  GREATER  THAU 
J50.0  DB  DOWN  ABOVE  1.778  KHZ.  THE  SAMPLING  RATE  IS 
;8.000  KHZ.  THE  SAMPLE  VALUES  ARE  QUANTIZED  TO  10  BIT 
5P* S  COMPLEMENT  PRECISION.  THE  IMPULSE  RESPONSE  IS  47 
5  SAMPLES  LONG.  DC  GAIN=0.6665*  THE  FORMAT  OF  7HE  FILE 
51 S  COUP AT ABLE  WITH  THE  CONVO  SUBROUTINE'  REQUIREMENTS* 

5LPFD1  THRU  LPFD4  ARE  DATA  STORAGE  FILES  FOR  USE  WITH 
5LPF1K  AND  THE  CONVO  SUBROUTINE.  EACH  1.350  KHZ  LOW 
5 PASS  FILTER  IMPLEMENTED  MUST  USE  A  DIFFERENT  DATA 
J STORAGE  FILE*  BUT  MAY  SHARE  LPF1K  AND  CONVO  FILES. 
5LPF1K  TOTAL  LENGTH=49.  LOCATIONS. 

5 TOTAL  PACKAGE  LENGTH=241 .  LOCATIONS. 

.ENT  LPF1K*  LPFD1*  LPFD2*  LPFD3*  LPFD4 

•  NREL 


00000*000057  LPF1K: 
00001*152530 


47.  5  IMPULSE  RESPONSE  LENGTH 

-1065. B12  50FFSET  CONSTANT 


00002*100020 
00003*100020 
00004*077760 
00005*077720 
00006*077760 
00007*100060 
00010*100140 
00011*100000 
00"  2*077560 
0 'M3  *077560 
00014*100140 
00015*100460 
00016*100220 
00017*077300 
00020*077020 
00021*100000 
00022*101340 
00023*101300 
00024*077040 
00025*074660 
00026*076260 
00027*104560 
00030*114360 
00031  *  117760 


1E0+1.B11 
1B0+1.B11 
1B0-1.B11 
1B0-3.B11 
1B0-1.B11 
1B0+3.B1 l 
1B0+6.B11 
1B0+0.B1 1 
1B0-9.B1 1 
1B0-9.B11 
1B0+6.B11 
1B0+19.B11 
1B0+9.B1 1 
1B0-20.B11 
1B0-31.B1 1 
1BO+O.B1 1 
1B0+46.B1 1 
1B0+44.B1 1 
1B0-30.B1 1 
1B0-101.B1 1 
1B0-53.B1 1 
1B0+151.B11 
1B0+399.B11 
1 B0+  5 1 1 • B 1 1 


5  IMPULSE  RESPONSE 
5  SAMPLSE 
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;LPFIK*  LPFDl*  LPFD2,  LPFD3*  LPFD4 
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00032  *  1 14360 

1B0+399.B11 

;lpfik  continued 

00033  *  104560 

1B0+ 1 5 1 « B1 1 

00034*076260 

1B0-53.B11 

00035*074660 

1B0-101oB11 

00036*077040 

1B0-30.B11 

00037*101300 

1B0v44.B1 1 

00040*101340 

1B0+46.B11 

00041*100000 

lBO-fO.Bll 

00042*077020 

1B0-31.B11 

00043*077300 

1B0-20.B11 

UC044 *100220 

1B0+9.B1 1 

00045*100460 

1B0+19.B11 

00046*100140 

1B0+6.B11 

00047*077560 

1B0-9.811  ‘ 

00050 '077560 

2BO-9.B11 

00051*100000 

1B0+0#  B1 1 

00052*100140 

1B0+6.B11 

00053*100060 

1B0-S-3.BI  1 

00054*077760 

1B0-1.BU 

00055*077720 

iB0“3»Bi 1 

00056*077760 

1B0-1.BU 

00057*100020 

lBO+l.Bli 

00060*100020 

1B0+1.B11 

j  END  of  lpfik 

00061*000062*  LPFDll 

.  +  1 

S DATA  STORAGE  FILE  1 

000057'  «BLK 

47. 

00141*000142'  LPFD2S 

.>1 

;data  storage  file  2 

000057  .8LK 

47. 

00221 *000222* 

LPFD3I 

•  +  1 

JDATA  STORAGE  FILE  3 

000057 

*BLK 

47. 

00301 *000302* 

LPFD4* 

•  + 1 

JDATA  STORAGE  FILE  4 

000057" 

•  BLK 

47. 

.END 

JENB  OF  LPF *Dl 

204 


LPF1K  OOuOOG* 
LPFD1  000061  * 
LPFD2  000141 5 
LPFD3  000221* 
LPFD4  000301* 
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O', 


o' " 

..oi 

c” 


|  5 


0  / 


$ 


fc 

ti 


. TI TL  LHRFE 

J LHRFE  AMD  LHRFO  ARE  FILES  OF  THE  ODD  AMD  EVEN  SAMPLES 
^RESPECTIVELY  OF  A  1:2  RESAMPLING  FILTER.  THE  IMPUT 
* SAMPLING  RATE  IS  8.000  KHZ*  AND  THE  OUTPUT  SAMPLING 
IRATE  IS  16. JOO  KHZ.  THE  FILTER  IS  LESS  THAN  0.01  DP 
5 DO EM  AT  1.C50  KHZ*  AND  GREATER  THAN  54.9  DE  DOWN  PAST 
58.000-1.350  KHZ.  THE  SAMPLES  ARE  QUANTIZED  TO  10  PIT 
52*S  COMPLEMENT  PRECISION.  THE  IMPULSE  RESPONSE  IS 
56  SAMPLES  CAT  THE  8.00  KHZ  SAMPLING  RATE)  LONG. 
5PASSBAND  CAIN=0. 99 71  *  LHRFE  AND  LHRFO  FILE  FORMAT  IS 
5 COMPATAELE  WITH  CONVE  AND  CONVO  SUBR  REQUIREMENTS. 

5LHFD1  AND  LHFD2  ARE  DATA  STORAGE  FILES  FOR  USE  WITH 
5 LHRFE*  LHRFO*  AMD  THE  CONVE  AND  CONVO  SUBROUTINES. 

*  EACH  RESAMPLING  FILTER  IMPLEMENTED  MUST  USE  A  DIFFERENT 
5DATA  STORAGE  FILE*  EUT  LHRFE*  LHRFO*  CONVE*  AND  CONVO 
JMAY  BE  SHARED. 

* LHRFE+ LHRFO  LENGTH=12.  LOCATIONS 
* TOTAL  PACKAGE  LENGTH=24.  LOCATIONS 


•ENT  LHRFE*  LHRFO*  LHFD1*  LHFD2 
•  NREL 


00000*000006 

LHRFE: 

6* 

J IMPULSE  RESPONSE  LENGTH 

00001*140100 

-510. BIO 

* OFFSET  CONSTANT 

00002*100700 

1B0+7.E9 

5 ODD  IMPULSE  RESPONSE 

00003*071100 

1B0-55.B9 

5  SAMPLES 

00004 '145700 
00005*145700 
00006*071100 
00007*100700 

1B0+303.B9 

130+303.39 

1B0-55.B9 

1B0+7.B9 

5  END  OF  LHRFE 

00010 '000006 

LHRFO: 

6* 

5  IMPULSE  RESPONSE  LENGTH 

00011*140040 

-511*510 

5 OFFSET  CONSTANT 

00012*100000 

1B0+0.B9 

5EVEN  IMPULSE  RESPONSE 

00013*100000 

1B0+0.J39 

5  SAMPLES 

00014*177700 
00015*100000 
00016*100000 
0001 7' 100000 

1B0+51 1.B9 
1B0+0.B9 
1B0+0.B9 
1B0+0.B9 

5  END  OF  LHRFO 

00020*000021  ’ 

LHFD1 : 

.  +  1 

*  DATA  STORAGE 

FILE  1 

000006 

•  BLK 

6. 

00027 '000030 ' 

LHFD2: 

.  +  1 

5  DATA  STORAGE 

FILE  2 

000006 

.BLK 

6* 

.  END 


5  END  OF  LHRFE  PApKAGE 
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LHFD1  000020' 
LHFD2  000027' 
LHRFE  000000 ' 
LHRFO  000010' 


{HLFRI*  HLFD1*  HLFD2 
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•TITL  '  HLRFI 

;hlrfi  is  a  file  of  IMPULSE  RESPONSE  samples  6f  AM  near 
5 PHASE  2:1  RESAMPLING  FILTER.  THE  INPUT  SAMPLING  RATE 
;IS  16.000  KHZ*  AND  THE  OUTPUT  SAMPLING  RATE  IS  8.000 
{KHZ.  THE  FILTER  IS  LESS  THAN  0.01  DB  DOWN  AT  1.350  KHZ 
JAND  GREATER  THAN  54.9  DB  DOWN  PAST  8.000-1.350  KHZ.  . 

; THE  SAMPLES  ARE  QUANTIZED  TO  10  BIT  2*S  COMPLEMENT 
;PRECISION.  THE  IMPULSE  RESPONSE  IS  11  SAMPLES  (AT 
{THE  ,16.000  KHZ  SAMPLING  RATE)  LONG.  PASSBAND  GAIN= 

; 0.99 71 »  THE  FORMAT  OF  THE  FILE  IS  COMPATABLE  WITH  THE 
J CON VO  SUBROUTINE  REQUIREMENTS. 

5IJLFD1  AND  HLFD2  ARE  DATA  STORAGE  FILES  FOR  USE  WITH 
j HLRFI  AND  THE  CONVO  AND  CONVI  SUBROUTINES.  EACH 
{RESAMPLING  FILTER  IMPLEMENTED  MUST  ,USE  a  DIFFERENT  DATA 
{file*  but  may  SHARE  THE  HLRFI*  CONVO*  AND  CONVI  FILES. 

5 HLRFI  LENGTH^ 1 1 •  LOCATIONS. 

X' TOTAL  PACKAGE  LENGTH»33.  LOCATIONS. 


.ENT 

HLRFI*  HLFD1, 

HLFD2 

•  NREL 

OOOOQ  *000013 

HLRFI* 

, 

11. 

{IMPULSE  RESPONSE  LENGTH 

00001*140060 

-1021. Bll 

{OFFSET  CONSTANT 

00002*100340 

i 

1B0+7.B10 

{IMPULSE  RESPONSE 

00003*100000 

1B0+0.B10 

{SAMPLES 

00004*674440 

1B0-55.B10 

00005 ’100000 

lBO+^310 

00006*122740 

1B0+303.B10 

00007*137740 

1B0+51 1.B10 

00010*122740 

1B0+303.B10 

00611 *100000 

1B0+0.B10 

00012*074440 

i 

1B0-55.B10 

00013*100000 

1B0+0.B10 

00014*100340 

1B0+7.B1O 

{END  OF  HLRFI 

00015*000016* 

HLFDll 

•  •*■1 

.  i 

{DATA  STORAGE  FILE  1 

000013 

•  BLK 

11. 

00031 *000032* 

HLFD2: 

•  +  1 

{DATA  STORAGE  FILE  2 

000013 

•  BLK 

11. 

•  END 

{END  OF  HLRFI* *FD1* ft *FD2 

HLFD1  000015' 
HLFD2  000031* 
HLF.FI  000000* 
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00000 

OuOOl 

00002 

00003 

00004 

00005 

00006 

00007 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00030 


JBPF3K,  BPFD1,  BPFD2 
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•TITL  BPF3K 

;BPF3K  IS  A  FILE  OF  IMPULSE  RESPONSE  SAMPLES  OF  A  LINEAR 
;PHASE  0.300  TO  3.000  KHZ  BAND  PASS  FILTER.  THE 
S FREQUENCY  RESPONSE  IS  35.0  PB  DOWN  AT  DC,  1.60  DB  DOWN 
J  AT  0.300  AND  3.000  KHZJ  AND  GREATER  THAN  50.0  DB  DOW/N 
I ABOVE  3.441  KHZ.  THE  SAMPLING  RATE  IS  16.000  KHZ.  THE 
; SAMPLE  VALUES  ARE  QUANTIZED  TO  10  BIT  2’S  COMPLEMENT 
JPRECISION.  THE  IMPULSE  RESPONSE  IS  107  SAMPLES  LONG. 
iPASSBAND  GAIN  IS  0.6883,  THE  FORMAT  OF  THE  FILE  IS 
} COMPATABLE  WITH  THE  CONVO  SUBROUTINE  REQUIREMENTS. 


JBPFD1  AND  BPFD2  ARE  DATA  STORAGE  FILES  FOR  USE  WITH 
JBPF3K  AND  THE  CONVO  SUBROUTINE.  EACH  3.0  KHZ  BAND  PASS 
; FILTER  IMPLEMENTED  MUST  USE  A  DIFFERENT  DATA  STORAGE 
JFILE,  BUT  MAY  SHARE  BPF3K  AND  CONVO  FILES. 

;BPF3K  TOTAL  LENGTH=109.  LOCATIONS. 

;TOTAL  PACKAGE  LENGTH=325.  LOCATIONS. 

.ENT  BPF3K,  BPFD1,  BPFD2 
•  NREL 


000153  BPF3K:  107. 

177470  -25.B12 


J IMPULSE  RESPONSE  LENGTH 
J OFFSET  CONSTANT 


100020 

100000 

100000 

100000 

100020 

100020 

100020 

100000 

077760 

100000 

100040 

100040 

077760 

077720 

077760 

100040 

100040 

077740 

077640 

077660 

100020 

100040 

077700 


1B0+1.B11 
1B0+0.B11 
1B0+0.B11 
1B0+0.B11 
1B0+1.B11 
1B0+1.B11 
1B0+1.B11 
1B0+0.B11 
1B0-1.B11 
1BO+O.B11 
1B0+2.B11 
1B0+2.B11 
1B0-1.B11 
IB0-3.BU 
1B0-1.B11 
1B0+2.B11 
1B0+2.B11 
1B0-2.B11 
1B0-6.B11 
1B0-5.B11 
1B0+1.B11 
1B0+2.B1 1 
1B0-4.B11 


; IMPULSE 
,*  SAMPLES 


RESPONSE 
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;BPF3K,  BPFD1,  BPFD2 
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00031 

*077500 

1B0-12.B1 1 

00032 

*077500 

1B0-12.B11 

00033 

*077720 

1B0-3.B1 1 

00034 

*100020 

1B0+1.B11 

00035 

*077620 

1B0-7.E11 

00036 

*077300 

1B0-20.B11 

00037 

*077240 

1B0-22.B11 

00040 

*077560 

1B0-9.B11 

00041 

*100000 

1B0+0.B11 

00042 

*077560 

1B0-9.B11 

00043 

*077060 

1B0-29.B11 

00044 

*076720 

1B0-35.B11 

00045 

*077340 

1B0-18.B11 

00046 

*100000 

1B0+0.B11 

00047 

*077560 

1B0-9.B11 

00050 

*076640 

1B0-38.BU 

00051 

'076300 

1B0-52.B11 

00052 

*077040 

1B0-30.B11 

00053 

'100060 

1B0+3.B11 

00054 

'077760 

1B0-1.B11 

00055 

*076440 

1B0-46.B11 

00056 

'075440 

1B0-78.B11 

00057 

*076400 

1B0-48.B1 1 

00060 

*100400 

1B0+16.B11 

00061 

*100720 

1B0+29.B11 

00062 

*076320 

1B0-51.B11 

00063 

*073400 

1B0-144.B11 

00064 

*074520 

1B0-107.B11 

00065 

*103340 

1B0+110.B11 

00066 

'114040 

1B0+386.B1 l 

00067 

*117760 

1B0+51 1 • B 1 1 

00070 

*114040 

1B0+386.BU 

00071 

*103340 

1B0+11O.B11 

00072 

*074520 

1B0-107.B11 

00073 

'073400 

1  BO-144.  BU 

00074 

*076320 

1B0-51.B11 

00075 

'100720 

1B0+29.B11 

00076 

*100400 

1B0+16.B11 

00077 

*076400 

IB0-48.B11 

00100 

*075440 

1B0-78.B11 

00101 

*076440 

1B0-46.B11 

00102 

*077760 

1B0-1.B11 

00103 

*100060 

1B0+3.B11 

00104 

*077040 

1B0-30'B1 1 

00105 

*076300 

1B0-52.B1 1 

00106 

*076640 

1B0-38.B11 

00107 

*077560 

1B0-9.B11 

00110 

*100000 

1B0+0.B11 

00111 

*077340 

1B0-18.B11 

00112 

*076720 

1B0-35.B11 

00113 

*077060 

1 B0-29. Bll 

;lpb3k  continued 
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00114*077560 
00115 1 100000 
00116*077560 
00117*077240 
00120*077300 
00121 *077620 
00122*100020 
00123*077720 
00124*077500 
00125*077500 
00126*077700 
00127*100040 
00130*100020 
00131 *077660 
00132 '077640 
00133*077740 
00134*100040 
00135*100040 
00136*077760 
00137*077720 
00140 '077760 
00141 *100040 
00142*100040 
00143*100000 
00144*077760 
00145*100000 
00146*100020 
00147*100020 
00150*100020 
00151*100000 
00152*100000 
00153*100000 
00154*100020 


00155*000156* 

000153 


00331 *000332* 
000153 


JBPF3K*  BPFD1*  BPFD2 


1B0-9.B1 J 

1B0+0.B11 

1B0-9.B11 

1B0-22.B11 

1B0-20.B11 

1B0-7.B11 

1B0+1.B11 

1B0-3.B11 

1B0-12.B11 

1B0-12.B11 

1B0-4.BU 

1B0+2.B11 

1B0+1.B11 

1B0-5.B11 

1B0-6.B11 

1B0-2.B11 

1B0+2.BU 

!B0+2oBll 

1B0-I.B11 

1B0-3.B1 1 

1B0-1.B11 

1B0+2.B11 

1B0+2.B11 

180+0. Bll 

1B0-1.B11 

1B0+0.B11 

1B0+2.B11 

1B0+1.B11 

1B0+1.B11 

1B0+0.B11 

1B0+0.B1 1 

1B0+0.B11 

1B0+1.B11 

BPFDit  ,+1 

•BLK  107. 

BPFD2I  ,+l 

•BLK  107. 


•  END 


PAGE  3  OF  3 
;BPF3K  CONTINUED 


*END  OF  BPF3K 
JDATA  STORAGE  FILE  1 

I DATA  STORAGE  FILE  2 

IEND  OF  BPF3K,  *D1,«  *D2 
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BPF3K  000000* 
BPFD1  000155* 
BPFD2  000331* 
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•  TI TL 


SUBPK 


fit  * 


•  ENT 

COM VO* 

COM  VI* 

CONVE* 

COSIN* 

ARCTN 

.  KMT 

TODRV* 

T03UF* 

TI  DRV* 

TIBUF* 

CHCOM 

•  ENT 

CRDRV* 

Cl  DRV* 

CO  DRV, 

AIDRV* 

AIBUF 

« ENT 

DIDRV* 

CLOCK* 

CMASK* 

DEAD* 

MASK 

.  ENT 

START* 

ABEND* 

DECPR* 

OCTPR* 

PRIMT 

.ENT 

MULT* 

MODS  vi* 

MDSET* 

RPROG* 

PPROG 

? 

000004 

.LOC 

4 

00004 

000000 

CMASK: 

0 

J CURRENT  PERI FERALS  MASK 

;  00005 

00 1400 

DEAD: 

JMP 

0*  3 

*  DEAD  SUBROUTINE 

< 

000045 

.LOC 

45 

j  00045 

005200 

COM VO: 

5200 

J  COM VOLUTI OM  SUBROUTINE 

?  00046 

005250 

COM VI : 

5200+50 

5ADV  INPUT  VECTOR  ONLY 

5  00047 

005264 

COMVE: 

5200+64 

» ADV  OUTPUT  VECTOR  ONLY 

f  00050 

005305 

COSIN: 

5305 

}  COSIN  SUBROUTINE  ADDP. 

;  00051 

005503 

ARCTN: 

5503 

*  ARC TAN  SUBROUTINE  ADDR 

j  00052 

005664 

TODRV: 

5664 

;tto  driver  address 

I  00053 

005703 

TOBUF: 

5664+17 

; PRINT  BUFFER  ADDRESS 

:  00054 

005706 

TIDRV: 

5706 

JT'TI  DRIVER  ADDRESS 

00055 

005763 

TIBUF: 

5706+55 

JREAD  BUFFER  ADDRESS 

(  00056 

005765 

CHCOM: 

5765 

ICH  COMM  SUBROUTINE  ADDR 

i  00057 

006012 

CRDRV: 

5765+25 

;CRI  DRIVER  ADDRESS 

■  00060 

006032 

Cl  DRV: 

5765+45 

.tCII  DRIVER  ADDRESS 

!  00061 

006062 

CODRV: 

5765+75 

JCSO  DRIVER  ADDRESS 

00062 

006124 

AIDRV: 

6124 

;ASI  DRIVER  ADDRESS 

00063 

177776 

AIBUF: 

-2 

;AIU  COMM  BUFFER  ADDRESS 

00064 

006153 

DI DRV : 

6124+27 

IDSI  DRIVER  ADDRESS 

00065 

000000 

CLOCK: 

OD 

*AIU  FRAME  COUNTER 

1  00066 

000000 

j  00067 

000000 

MASK: 

0 

i  CURRENT  IMTERUPT  MASK 

000  70 

006355 

START : 

6355 

J START-UP  ROUTINE  ADDR 

00071 

006424 

ABEMD: 

6424 

; ABEND  ROUTINE  ADDRESS 

{  00072 

006473 

DECPR: 

6465+6 

; DECPR  SUBROUTINE  ADDR 

:  00073 

006465 

OCTPR: 

6465 

; OCTPR  SUBROUTINE  ADDR 

;  00074 

006562 

PRIMT: 

6562 

J PRINT  SUBROUTINE  ADDR 

j  00075 

006607 

MULT: 

6607 

* 2 ’S  COMPL  16  BIT  MULT 

00076 

006621 

MODSto: 

6607+12 

;MODSW  SUBROUTINE  ADDR 

j  00077 

006632 

MDSET: 

6607+12+11 

; MDSET  SUBROUTINE  ADDR 

00100 

000005 

RPROG: 

DEAD 

iREAL  TIME  PROGRAM  ADDR 

i  00101 

000005 

BPROG: 

DEAD 

J BACKGROUND  PROGRAM  ADDR 
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ABEND  000071 
AI.6UF  000063 
AIDRV  000062 
ARCTN  000051 
BPROG  000101 
CHCOM  000056 
Cl  DRV  000060 
CLOCK  000065 
CMASK  000004 
CODRV  000061 
CONVE  000047 
CONVI  000046 
CON VO  000045 
COSIN  000050 
CRDRV  000057 
DEAD  000005 
DECPR  000072 
DIDRV  000064 
MASK  000067 
MDSET  000077 
MODSW  000076 
MULT  000075 
OCTPR  000073 
PRINT  000074 
RPROG  000100 
START  000070 
TIBUF  000055 
TIDRV  000054 
TOBUF  000053 
TODRV  000052 
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I 


TITL  IMPAC 


.ENT  LPF1K,  LP'FD  1 »  LPFD2.,  LPFD3>  LPFD4 
•ENT  LHREe,  LHRFO>  LHFD1,  LHFD2*  HLRFI 
.ENT  HLFD1 j  HLFD2>  BPF3K>  BPFDIj  BPFD2 


004000 

.LOC 

4000 

000061 

LPF1K: 

•  BLK 

49. 

000060 

LPFD1* 

,  .BLK 

48. 

000060 

LPFD2* 

•  BLK 

48. 

000060 

LPFD3* 

.BLK 

48* 

000060 

' LPFD4* 

.BLK 

48. 

0CI4363 

.LOC 

4363 

000010 

LHRFE* 

•  BLK 

8. 

000010 

LHRFO  * 

.BLK 

8* 

000007 

LhFDl; 

.BLK 

7. 

000007 

LHFD2* 

•  BLK 

7. 

000015, 

HLRFI* 

.BLK 

13. 

000014 

HLFD1* 

1  .BLK 

i 

.12. 

000014 

HLFD2  * 

•  BLK 

12. 

004470 

1 

•  LOC 

4470 

000155 

BPF3K* 

•  BLk 

109. 

0001,54 

BFFD1 * 

•JBLK 

108. 

000154 

BPFD2* 

'.BLK 

108. 

•  END 


;i.35  KHZ  LPF  IMP  RESP 
;lpf  data  storage  file  i 
;lpf  data  storage  file  2 
;lpf  data  storage  file  3 
5  LPF  data  storage  FILE  4 

51* 2  RESAMPL  FLT  IMP  RES 
5  ODD  TERMS  OF  ABOVE 
5LHRF  DATA  STORE  FILE  1 
5LHRF  DATA  STORE  FILE  2 
52*1  RESAMPL  FLT  IMP  RES 
5HLRF  DATA  STORE  FILE  1 
5HLRF  DATA  STORE  FILE  2 

50.3-3.0  KHZ  BPF  IMP  RES 
5BPF  DATA,  STORAGE  FILE  »1 
5 BPF  DATA  STORAGE  FILE  2 


BPF3K  004470 
BPFD1  004645 
BPFD2  005021 
HLFD1  004436 
HLFD2  004452 
HLRFI  004421 
LHFD1  004403 
LHFD2  004412 
LHRFE  004363 
LHRFO  004373 
LPF1K  004000 
LPFD1  004061 
LPFD2  004141 
LPFD3  004221 
LPFD4  004301 


El  7 


APPENDIX  B 


MAIN  PROGRAM  FOR  TRANSCEIVER  BREADBOARD 
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MMAX  003761 
ZMAX  000050 


SAFE 
v  3 
*1 
*1 
*1 
*6 


ABEND  000071 
AIBUF  000063 
A I DRV  000062 
ARCTN  000051 
BPF3K  004470 
BPFD1  004645 
BPFD2  005021 
BPROG  000101 
CHCOM  000056 
Cl  DRV  000060 
CLOCK  000065 
CMASK  000004 
CO DRV  000061 
CONVE  000047 
CONVI  000046 
CONVO  000045 
COSIN  000050 
CRDRV  000057 
DEAD  000005 
DEBUG  000200 
DECPR  000072 
DIDRV  000064 
HLFD1  004436 
HLFD2  004452 
HLRFI  004421 
LHFD1  004403 
LHFD2  004412 
LHRFE  004363 
LHRFO  004373 
LPF1K  004000 
LPFDi  00406) 
LPFD2  004141 
LPFD3  004221 
LPFD4  004301 
MASK  000067 
MDSET  000077 
MODSW  000076 
MULT  000075 
OCTPR  000073 
PRINT  000074 
RPROG  000100 
START  000070 
TIBUF  000055 
TIDRV  000054 
TOBUF  000053 
TODRV  000052 


*8 

44/007552  /000050 

7553  007551 

7554  007337 

7555  003761 

7556  177777 
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6650 

NIOC  CPU 

6651 

LDA  0+63 

6652 

LDA  1  120 

6653 

STA  1+63 

6654 

STA  0  120 

6655 

NIOS  CPU 

6656 

STA  3  121 

6657 

LDA  0  @120 

6660 

MOVL  0  1 

6661 

SUBR  1  1 

6662 

STA  1  122 

6663 

JSR  @+77 

6664 

JSR  0+76 

6665 

070000 

6666 

JMP  6730 

6667 

LDA  2  120 

6670 

LDA  1  123 

6671 

LDA  0  122 

6672 

ADD  1  0 

6673 

STA  0+02 

6674 

LDA  0+42 

6675 

NEC  0  0 

6676 

STA  0+42 

6677 

LDA  0+52 

6700 

NEC  0  0 

6701 

STA  0+52 

6702 

LDA  0+12 

6703 

JSR  @+76 

6904 

040000 

6705 

JMP  6712 

6706 

JSR  @+45 

8907 

004000 

6710 

004061 

6711 

JMP  6724 

6712 

JSR  e+76 

8913 

020000 

6714 

JMP  6721 

6715 

JSR  @+45 

8916 

004470 

6717 

004645 

6720 

JMP  6724 

6721 

JSR  @+45 

8922 

004421 

6723 

004436 

6724 

MEG  0  0 

6725 

LDA  2  120 

6726 

STA  0+12 

6787 

JMP  @121 

220 


6730 

JSR  0+76 

0001 

107400 

6732 

JMP  0121 

6733 

LDA  6  120 

6734 

LDA  1  124 

6735 

LDA  0  122 

6736 

ADD  1  0 

6737 

STA  0+02 

6740 

LDA  1  +3  2 

6741 

ADDOR  1  1 

6742 

STA  1  +3  2 

6743 

LDA  0  +1  2 

6744 

JSR  8+76 

6045 

077777 

6746 

JMP  6724 

6747 

LDA  0+22 

6750 

JSR  8+76 

6051 

004000 

6752 

JMP  6755 

6753 

JMP  7010 

8054 

000000 

6755 

LDA  3  1?6 

6756 

STA  1  126 

6757 

SUBZL  0  1 

6760 

STA  1  127 

6761 

SUBZL  3  0 

6762 

JSR  8+76 

6063 

001000 

6764 

JMP  6775 

6765 

JSR  8+46 

8966 

004421 

6767 

004436 

6770 

LDA  0  127 

6771 

JSR  8+45 

6972 

004421 

6773 

004436 

6774 

JMP  7010 

6775 

JSR  8+76 

6976 

000400 

6777 

JMP  7010 

7000 

JSR  8+46  > 

S001 

004470 

7002 

004645 

7Q03 

LDA  0  127 

7004 

JSR  @+45 

*005 

004470 

7006 

004645 

7007 

ADD  0  0 

I 


7010 

LDA  2.  120 

7011 

LDA  1+1,2 

7012 

STA  0+12 

7013 

MOV  1  0 

7014 

JSR  @+76 

S015 

002000 

7016 

JMP  7022 

7017 

MOVL  1  0 

7020 

MOVR  1  0 

7021 

JMP  7034 

7022 

JSR  0+76 

9023 

001000 

7024 

JMP  7031 

7025 

JSR  0+45 

9026 

004421 

7027 

004452 

7030 

JMP  7034 

7031 

JSK  6+45 

9032 

,  004470 

7033 

005021 

7034 

LDA  2  120 

7035 

LDA  3  130 

7036 

SUB  0  3 

7037 

STA  3  130 

7040 

STA  3+22 

'7041 

JSR  0+76 

9042 

001777 

7043 

JMP  7057 

7044 

SUB  0  0 

1 

7045 

JSR  0+76 

9046 

001000 

7047 

JMP  7054 

7050! 

JSR  0+45 

9051 

004421 

7052 

004452 

7053 

JMP  7057 

7054 

JSR  .  0+45 

9055 

004470 

7056 

005021 

7057 

LDA  2  *20 

7060 

LDA  3  130 

7061 

SUB  0  3 

7062 

$TA  3  130 

7063 

STA  3+32 

7064 

JMP  0121 

-22? 


$  = 

63/007532 

100/006650 

120/007540 

123/020000 

124/060000 
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185 

032914 

67?;  2 

JMP  7070 

7070 

JSR  §+76 

S071 

000360 

7072 

JMP  §121 

7073 

LDA  2  120 

7074 

LDA  1  123 

7075 

U>A  0  122 

7076 

ADD  1  0 

7077 

STA  0+02 

7100 

LDA  0  126 

7101 

LDA  1  125 

7102 

JSR  9+76 

$003 

000240 

7104 

MEG  1  1 

7105 

ADD  1  0 

7106 

STA  0  126 

7107 

JSR  §+76 

$010 

000300 

7111 

JMP  7207 

7112 

JSR  @+50 

7113 

STA  0  127 

7114 

STA  1  130 

7115 

LDA  2  120 

7116 

LDA  2+32 

7117 

STA  2  132 

7120 

JSR  0+75 

7121 

STA  0  131 

7122 

L'JA  1  127 

7123 

LDA  2  132 

°124 

JSR  0+75 

7125 

STA  0  132 

7126 

LDA  1  127 

7127 

LDA  2  120 

7130 

LDA  2+22 

7131 

JSR  ©+75 

7132 

LDA  1  131 

7133 

SUB  1  0 

7134 

LDA  3  120 

7135 

LDA  2+23 

7136 

LDA  1  130 

7137 

STA  0+23 

7140 

JSR  0+75 

7141 

LDA  1  132 

7142 

ADD  1  0 

7143 

LDA  2  120 

7144 

STA  0+32 

-2 


7145 

LDA 

1  185 

7146 

HOVZB  1  1 

7147 

JSB 

f+76 

0650 

000240 

7151 

NE6 

1  1 

7158 

LDA 

0  186 

7153 

ADD 

1  0 

7154 

J5R 

•♦50 

7155 

STA 

0  187 

7156- 

STA 

1  130 

7157 

LDA 

8  120 

7160 

LDA 

2+5  2 

7161 

STA 

2  132 

71 63 

JSR 

0+75 

7163 

STA 

0  131 

71 6*1 

LDA 

1  127 

7165 

LDA 

2  132 

7166 

JSR 

0+75 

7167 

STA 

0  132 

7170 

LDA 

1  127 

7171 

LDA 

2  120 

7172 

LDA 

2+4  2 

7173 

JSR 

§+75 

7174 

LDA 

1  131 

7175 

SUB 

1  0 

7176 

LDA 

3  120 

7177 

LDA 

2+4  3 

7200 

LDA 

1  130 

7201 

STA 

0+4  3 

7202 

JSR 

0+75 

7203 

LDA 

1  132 

7204 

ADD 

1  0 

7205 

LDA 

2  120 

7206 

STA 

0+5  2 

7207 

LDA 

0+2  2 

7210 

JSR 

0+46 

9811 

004421 

7212 

004436 

7213 

LDA 

2  120 

7214 

LDA 

0+4  2 

7215 

NEC 

0  0 

7216 

JSR 

0+45 

9017 

004421 

7220 

004436 

7221 

JSR 

0+45 

9022 

004000 

7223 

004061 

7224 

STA 

0  131 
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7885 

LDA  8  180 

7886 

LDA  Q+38 

7887 

JSB  9446 

8630 

004481 

7831 

004458 

7838 

LDA  2  180 

7833 

LDA  0  45  2 

7834 

NEG  Q  0 

7835 

JSB  6445 

8636 

004481 

7837 

004458 

7840 

JSR  6445 

8*41 

004000 

7848 

004141 

7843 

STA  0  132 

7844 

LOA  0  186 

7845 

JSR  6450 

7846 

STA  0  127 

7847 

LOA  2  132 

7850 

JSR  6475 

7851 

STA  0  132 

7858 

LDA  1  127 

7853 

LDA  2  131 

7854 

JSR  0475 

7255 

LDA  1  132 

7256 

ADD  0  1 

7257 

LDA  2  120 

7260 

LDA  0  41  2 

7261 

STA  1  41  2 

7262 

JSR  6476 

8863 

000300 

7264 

JMP  7307 

7265 

JSR  @445 

8866 

004470 

7267 

004645 

7270 

LDA  2  120 

7271 

LDA  1  123 

7272 

ADDZL  1  0 

7273 

STA  0  42  2 

7274 

SUB  0  0 

7275 

STA  0  43  2 

7276 

STA  0  45  2 

7277 

JSR  9445 

8800 

004470 

7301 

004645 

7302 

LDA  2  180 

7303 

LDA  1  123 

7304 

ADDZL  1  0 

7305 

STA  0  44  2 

7306 

JMP  9121 
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7307 

STA  0  130 

7310 

LDA  0  126 

7311 

JSR  0+50 

7313 

LDA  2  130 

7313 

STA  0  127 

7314 

JSR  9+75 

7315 

JSR  9+45 

*016 

004000 

7317 

004221 

7320 

ADDZL  0  0 

7321 

JSR  9+45 

S§22 

004363 

7323 

004403 

7324 

LDA  2  120 

7325 

STA  0+32 

7326 

JSR  9+47 

*027 

004373 

7330 

004403 

7331 

LDA  2  120 

7332 

STA  0+52 

7333 

LDA  1  127 

7334 

LDA  2  130 

7335 

JSR  9+75 

7336 

JSR  0+45 

9037 

004000 

7340 

004301 

7341 

ADDZL  0  0 

7342 

JSR  0+45 

9043 

004363 

7344 

004412 

7345 

LDA  2  120 

7346 

STA  0+22 

7347 

JSR  9+47 

9050 

004373 

7351 

004412 

7352 

LDA  2  120 

7353 

STA  0+42 

7354 

JMP  0121 
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6731 

107403 

6763 

001003 

7012 

JMP  07013 

7013 

007450 

7023 

001003 

7046 

001003 

7067 

007410 

7072 

JMP  @  7067 

7360 

LDA  1  131 

7361 

I NCR  1  2 

7362 

ADDZR  0  1 

7363 

STA  1  131 

736  ' 

MO  VR  £  2 

7365 

NEG  0  0 

7366 

SUBR  0  0 

7367 

JMP  +0  3 

7370 

LDA  1  132 

7371 

MOV  1  1  SNR 

7372 

INC  1  1 

7373 

INCR  1  0 

7374 

MOVE  0  0 

7375 

SUBCR  0  0 

7376 

ADDZR  0  1 

7377 

STA  1  132 

7400 

JMP  +0  3 

7410 

JSR  73  70 

7411 

LDA  1  123 

7412 

ADD  .1  0 

7413 

JSR  @+76 

3614 

000004 

7415 

JMP  7424 

7416 

JSR  6+45 

3617 

004363 

7420 

004403 

7421 

JSR  @+45 

3622 

004421 

7423 

004436 

7424 

LDA  2  120 

7425 

STA  0+12 
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7426 

MOVL  0  0 

7427 

SUBCR  0  0 

7430 

JSR  7360 

7431 

LDA  1  123 

7432 

JSR  §+76 

9433 

000004 

7434 

LDA  1  124 

7435 

ADD  1  0 

7436 

STA  0  8120 

7437 

JSR  8+47 

9040 

004373 

7441 

004403 

7442 

JSR  8+46 

C043 

004421 

7444 

004436 

7445 

JMP  6121 

7450 

STA  0+12 

7451 

JSR  8+76 

9052 

000003 

7453 

JMP  7473 

7454 

MOVL  0  0 

7455 

SUBCR  0  0 

7456 

JSR  6+76 

9057 

000001 

7460 

JSR  7360 

7461 

LDA  1  124 

7462 

ADD  1  0 

7463 

STA  0  8120 

7464 

LDA  0  122 

7465 

JSR  6+76 

9066 

000001 

7467 

JSR  7370 

7470 

LDA  1  7476 

7471 

MOVL  0  0  SNC 

7472 

NEG  1  1 

7473 

MOV  1  0 

7474 

JMP  07475 

9475 

007014 

7476 

040000 

-229- 


